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EXCLUSIF : LE 
NOUVEL ORIC 



PLACE AUX JEUNES 

ORIC FRANCE annonce la naissance 
du grand Irere de I'ORIC 1. baptise 
ORIC ATMOS et disponible a partir 
de Fevrier 1984 



Ce systeme concu el realise par 
ORIC PRODUCT INTERNATIONAL, 
devrait non seulement elargir le mar- 
che des utilisateurs des produits 
ORIC. mais aussi satisfaire les pos- 
sesseurs d'un ORIC 1 Outre un cla- 



vier plus complet a touches profes- 
sionnelles et un "DESIGN" plus tra- 
vaille (§ photo et detail de la fiche 
technique) LATMOS est equipe 
d'une nouvelle ROM comportanl un 
interpreter BASIC disposant d'tns- 
tructions supplementaires. Peut-on 
esperer par la meme occasion, que 
cette nouvelle version soit plus fiable 
que la precedente ? (Beaucoup d'er- 
reurs dans la ROM de I'ORIC 1, et pas 
touiours les memes problemes dun 
ORIC I a I'autre '). II semble que cela 
soit le cas ORIC FRANCE prevoit 
seulement 3 % de rejets pour t'ORIC 
ATMOS (contre plus de 22 % pour 
I'ORIC 1) Bref. souhaitons que le 
grand irere ne soit pas un frere ju- 
meau ! 

En ce qui concerne la compatibility 
des deux produits, les logiciels con- 
cus pour I 'ATM OS tourneront, nous 
assure-t-on, sur I'ORIC 1 doit-on en 
conclure que ces logiciels n'utllise- 
ronl pas les caractehstiques de I 'AT- 
MOS (instructions supplementai- 
res 7). La compatibility inverse 
n'est pas, par contre, assuree 
Est-ce!a mort de I'ORIC 1 ?Onpeut le 
supposer Car. outre letaitqu'ilne se- 
ra plus fabrique ni commercialise ni 



(a coup sun alimente en logiciels. 
ORIC FRANCE met en place une 
operation commerciale etonnanle 
OR!C FRANCE propose aux incondi- 
tionnels de la gamme ORIC d'echan- 
ger, tout simplement. leur ORIC 1 
contre un ORIC ATMOS. moyennant 
une contrepartie de 1'ordre de 600 a 
700 F Chapeau non ? 
Qui, a ce prix refuserait de troquer 
son vieil (!) ORIC poussiereux contre 
un ATMOS flambanl neut ? 
Quant aux possibilttes reelles de ce 
systeme. il nous faudra attendre les 
tests que nous ne manquerons pas 
deffectuer Ensomme. tout sera plus 
Clair lorsque nous verrons I'ATMOS 
faire (HEBDOGfCIEL merite bien 
loscar des mauvais jeux de mots \) 

DU COTE DES DISQUETTES 

Voila ca y est. le lecteur de disquette 
tant attendu est dorenavant disponi- 
ble. C'est un lecteur de disquettes 
3 pouces, de capacite 320 K (Forma- 
te) 

DE TOUT, UN PEU 

ORIC envisage de completer sa 
gamme "MICRO'' par ladjonction. 



courant1984,dedeu --•■^uveauxsys- 
temes. destines a dei .ubhcs diffe- 
rents 

- Un super ORIC grand public, cet 
ete. 

- Un systeme plus professionnel par 
la suite. 

Outre la realisation a court terme (3 a 
4 mois) d'un clavier AZERTY pour ces 
produits ORIC FRANCE, qui decide- 
ment n'a peur de rien, prevoit le de- 
veloppement de produits comple- 
mentaires lies aux applications robo- 
tiques 

II est a noter egalement la mise en 
place dun service d'information et 
dune assistance technique par tele- 
phone : qu'on se le dise ! 

ORIC FRANCE : 

REALISME OU OPTIMISME } 

ORIC FRANCE est en fait le depart- 
ment informalique d'ASN DIFFU- 
SION, societe de Distribution de 
Composants Electroniques 
Ce departement realise, depuis Juin 
1983, la vente du materiel et d'une 
partie du logiciel pour ORIC 
En ce qui concerne ce materiel, 
Suite page 9 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II et He 
. CANON X-07 . CASIO FX 702-P . COMMODORE 64 et VIC 20 . 
GOUPIL . HEWLETT PACKARD HP41 . MULTITECH MP-FII . 
ORIC 1 . SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 . TANDY 
TRS 80 . TEXAS Ti-99/4A . THOMSON T07 



EDITO 



Nous sommes pour le moment, le 
seul journal de micro-informatique 
grand public qui soit hebdomadaire 



Cela nous donne un avantage : nous 
pouvons annoncer plus rapidement 
que les autres les nouveaules au fur 
et a mesurede leur sortie C'est pour 
cette raison que nous allons modifier 
quelque peu la forme du journal. Ras- 
surez-vous, il n'est pas question que 
vous n'ayez pas chaquesemaine, vo- 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



tre programme nl d'abandonner les 
concours permanents Nous allons 
seulement developper hnformation 
sur les nouveautes. peut-etre des 
bancs d'essais de materiels et sure- 
men! beaucoup plus d'essaisde logi- 
ciels Nous commencons cette se- 
maine en vous parfant du nouvel 
ORIC. un evenement ! La semaine 
prochaine nous vous parlerons peut- 
etre d'un nouvel APPLE et du RO- 
MOX. un engin extraordinaire 

Gerard CECCALDI 



LE GAGNANT 



Nous n'avons pu resisterau plaisirde 
vous montrer la tetede Gilles GRAPI- 
NET qui a remporte le premier con- 
cours tnmestriel d'HEBDOGICIEL 
Un voyage en CALIFORNIE, un che- 
que de 10 000 francs, un ordinateur 
ALICE offer! par HACHETTE. une ma- 
chine a ecrire mterlacee BROTHER 
EP22oHerte par DURIEZet meme un 
des 30 hvres oHerts par la REGLE A 
CALCUL chaque mois. II n'a pas I'air 
content ? normal, quand la photo a 



ete prtse il ne savait pas encore qu'il 
avait gagne II a 20 ans. il est en 
deuxieme annee de droit et il ?st 
Marseillais 



HIPPOREBUS trouvez I'expression qui se cache dans la B D de I'hippocampe Decompose en trois syllabes dans les IrOis premieres cases, le "tout" a evidemment un rapport avec linformatique 
(solution en page interieure) 




(N°16 



Allemagne 3,50 DM - Belgique 55 Frs ■ Canada 2,50 $ - Luxembourg 57 Frs - Suisse 3 Frs 



TRESORS E T MONSTRES pcA 2AA 



Un mini jeu de role pour grand aventurier. 



Philippe LESOT 



Jeu pour un a quatre joueurs 

Article 1 : TEM (Tresors et Monstres) est un mini jeu de role. A chaque 
joueur sont attaches 9 caracteres (voir article 2). Le but de chaque 
joueur est de traverser un nombre de pieces, (I «= K * 50) fixe secrete- 
ment par I'ordinateur, tout en restant vivant. 
La partie s'arrete. 

1) Si tous les joueurs sont morts ; il n'y a aucun gagnant 

2) Si tous les joueurs vivants ont depasse les K pieces le gagnant est 
alors celui qui a le plus d'or. Si plusieurs joueurs ont lememe nombre de 
points d'or alors ils sont tous gagnants. 

Article 2 : Caracteres attaches a chaque joueur ; 

1 ) un numero compris entre 1 et 4 

2) un nombre de points de vie "P— " (articles 4 et 7) 

3) un nombre de points de vie a I'origine Po (art. 4) 

4) le nombre de monstres tues par lui "M— " (art. 4) 

5) le nombre de points de nourriture "N— " (art. 5) 

6) le nombre de poin*s de force "A—" (art. 7) 

7) le nombre de p££/s d'or "0-" (art. 6 et 7) 

8) le nombre de fi3)R "F— " (art. 7) 

9) la piece ou il est (art 5) 

Pour chacun des joueurs I'affichage de ses caracteres se compose de 
deux lignes : 
Sur la premiere ligne : 

numero du joueur, numero de la piece, PAN 
Sur la deuxieme ligne : 
M.O.F. 

Article 3: Le jeu commence par un premier tour pour determiner les ca- 
racteres initiaux de chaque joueur , ensuite un tour se compose d'au- 
lant de sous-tours qu'il y a de joueurs. 
A chaque sous-tour : 

a) I'ordinateur affiche le numero du joueur 

b) le joueur choisit une semence pour la nourriture (art. 5) 

c) I'ordinateur affiche les caracteres du Joueur 

d) le joueur choisit le nombre de pieces dont il veut avancer (art. 5) 



e) le joueur choisit des semences pour combattre un monstre (art. 6) 
ou avoir un tresor (art. 7) ou rien 

A la fin du tour I'ordinateur affiche les nouveaux caracteres du joueur. 
Article 4 ; Le caractere principal de chaque joueur est P Ce nombre en- 
traine la mort du joueur s'il devient negatif ou nul. Dans le tour initial tout 
joueur determine le nombre P aleatoirement entre 1 et 20. Le nombre 
de points de vie P peut varier dans trois cas ; 

- combat avec un monstre (art. 6) 

- lorsqu'on a un tresor (art. 7) 

- lorsqu'on veut des soins 

Ce dernier cas permetderecuperer les points de vie perdus. Pour obte- 
nir des soins il faut rester sur place et avoir au moins un point de nourn- 
ture Ces deux conditions etant remplies on choisit 1 lorsqu'on voit s'af- 
ficher SOINS 1. On a alors droit a une semence qui permet de remon- 
terle nombre de points de vie del a 6pointsmaisPne doit pas depasser 
Po. Ce nombre Po augmente d'un point lorsqu'on a tue un multiple de 

5 monstres. 

Article 5 ;Le deuxieme caractere tres important est le nombre de points 
de nourriture N. En effet, lorsqu'il est negatif le joueur meurt. Dans le 
tour initial N est nul. Au cours d'un tour chaque joueur obtient 1 a 

6 points de nourriture qui s'ajoutent a ceux des tours precedents. Ces 
points de nourriture permettent ou d'avoir des soins (art. 4) ou d'avan- 
cer. Ce dernier cas a lieu lorsqu'on voit s'afficher "+01 2 3". Cecisignifie 
que le joueur peut avancer de n pieces (0 "• n *• 3) mais il consomme 
alors n + 1 points de nourriture. 

Si n > on est certain d'avoir un monstre ou un tresor 
Si n - on peut avoir des soins (art. 4) et n'avolr ni monstre ni tresor 
Article 6 : Lorsqu'on voit s'afficher : 
mot a un nombre a un nombre b 

on est devant le monstre a. Le nombre a est compose de 2 chiffres qui 
sont les facons possibles de combattre le monstre. 
chiffres signification 
possibles 

le joueur essaie de se cacher ; s'il y parvient il ne se passe 
Men sinon voir le chiffre 2 

1 attaque du joueur en premier 

2 attaque du monstre en premier 

3 achat du monstre (1 point d'or suffit et il ne se passera rien 
sinon voir chiffre 2) 

Le nombre b est le nombre de points de vie du monstre. 
Apres avoir choisi c un des deux chiffres de a on fait ENTER, puis on en- 
tre c puis ENTER 



Si c=1ouc=2le combat entre le joueur etle monstre a lieu. Use compo- 
se pour chaque participant 

d'une premiere semensepouratteindrel'adversaire(TM.TP). Si I'adver- 
saire est atteint d'une deuxieme semense pour savoir le nombre de 
points de vie enleve a I'adversaire. Si le monstre enleve au joueur plus 
de points de vie qu'il en a alors le joueur est mort. 
St le joueur tue le monstre c'est-a-dire b "* alors I'ordinateur affiche R 
(reussi). 

Lorsque le joueur a tue un dragon ou un troll il gagne des pieces d'or. 
Caracteres du monstre : 
E : nombre de points de vie 

F : nombre que doil obtenir le joueur pour atteindre le monstre. 
G : nombre de points de vie maximal que peut enleverle monstre lors- 
qu'il atteint le joueur. 
Article 7 ; Les Tresors sont : 

a) augmentation des points de vie (P) 

b) augmentation des points de nourriture (N) 

c) augmentation des points de force (A) 

(au debut du jeu on en a 3. plus on en a, plus on est invulnerable vis-a-vis 
des monstres) 

d) augmentation des points d'or 

(au debut du jeu on en a ; ils servent pour gagner et pour acheter des 
monstres) 

e) augmentation du nombre de fioles (au debut on a une fiole) 

f) le poison 

lorsqu'on voit s'afficheraprestresorPOISONFI.onaatt rape unpoison. 
Sionaaumoinsunefioie.enchoisissantlonenperdune.sinononperd 
3 points de vie 3 

PROGRAMME 

1) Entrez le programme 

2) Faites RUN 1, choisissez le nombre de joueurs 

3) Voir article trois de la regie du jeu 

NB 1 : pour la semense (S— ), on peut mettre n'importe quel nombre. 
NB2 : pour repondre a une question il se presente 2 cas Si vous voyez 
un — , vous ecnvez votre reponse puis vous faites ENTER. 
Sinon vous faites ENTER, il s'affiche un ? vous ecrivez alors votre repon- 
se et vous faites ENTER 



is CLEAR ! INPUT 
"TEM J 1234 
:"!K:F0R 1=1 
TO KsBEEP I! 
PAUSE "J"! I: 
B=2Q: GOSUB 9 
0!H=81+5:A'H 
+ 1>=B 

2:A<H+S>==Bi«<H 
+ 4>*3!A<H+5) 
=l:G0SUB 94: 
NEXT i:B=50s 
GOSUB 91:*=B 

4: IF L'lIF T 1 
IF A<28><1IF 
MvJfl- irrmT 
"MORTS":FND 

6IF0R I'lTO 4: 
H>8I+3:IF AC 
H+l> 1LET AC 



H+7)=E2si:-DTCi 
11 
7: IF R--KIF 2>K 
IF A<54)>KIF 
A(42>>KPRINT 
"VICTOIRE": 
GOTO 10 
3: BEEP ti PAUSE 
"J"l It GOSUB 
20MF fiCH+1) 
<1LET A<H+7> 
=E2:PPINT "+ 
":G0T0 11 
10: GOSUB 94 
1UNEXT I : GOTO 

20sE=2sG0SUB 41 

: GOSUB 94 
21: INPUT "♦ 012 



<0)*(A>3> 

THEN 21 
jl': GOSUB 98: IF 

AC2+HX0LET 

A<H+n=0: 

RETURN 
23iA<H+7)bA+A(H 

+7): IF ATHEH 

32 
24: INPUT 'SOINS 



01 



IB: IF 



B=0THEN 30 

25SG0SUB 98: IF 

A<2*HK0LET 

A<H+1>=0: 

RETUKN 

26 i E=i: GOSUB 41 



28:B=A(H+1): 

PAUSE "Ps'SB 
30: GOSUB 89: IF 

B<4RETURN 
32: B=9: GOSUB 90 

:IF B>6THEN 

40 
33tE=6:F=4:G=4: 

GOSUB 33+fc: 

GOTO 50 
34IE-HG-3: 

PRINT "0R0UE 
01 "5E: 



i IF . 



(1 



37: E=8: PRINT "B 

EMON 23 "!£: 

RETURN 
3S:E=9:F=5: 

PRINT "TP0LL 
13 ' :E: 

RETURN 
3?:E=15:F=t.:G=b 

:PRINT "DRUG 

ON 01 "iE: 

RETUPN 
40r PAUSE "TPES0 

R":G0SUB 89: 

E=B:B=1 
•41: IF E 4G0SUB 

42: IF E'feLET A< 
H+E>=rt<H*E>+ 
B: RETURN 

43: INPUT "POIS0 



N Fl :"!P:IF 
B=1IF fl<5+H> 
:0LET A<3+H) 
=A<5+H>-1: 
RETURN 

44:AC1+H;=A. 1+H 
•-3: RETURN 

50: INPUT C«IF C 
=3IF A' 5+H>> 
0LET A<3+H?= 
fi'3+H-l: 
RETUPN 

311 IF C=1THEH 5 
8 

52: IF C=0LET B= 
Hbusuu yu: 
IF B<3RETURH 

54: PAUSE "TM": 
GOSUB 89: IF 
B<1+AC4+H> 



THEN 58 

56:B=G:G0SUB 90 
:A(H+1 ■=»< H* 
n-B:IF Mil 
HXtRETURN 

57:B=A<H+1>: 
PAUSE »P«"IB 

58SPAUSE "TP"S 
GOSUB 39: IF 
A(4*H>+B<F+3 
THEN 54 

59:B=A<4+H>: 
GOSUB 90: IF 
B>=EPAUSE "F 
":G0T0 65 

t.Uit=t-fc:KHUbfc 
"V="SE:GOTO 
54 



66iB»A<6+H):B-B 

+1:IF B'5= 
INT .2BLET A 
(8+H.'=Ar.8+H> 
+ 1 
67:A<6+H)>B> 
RETURN 

90: BEEP H INPUT 

»S« H tA 
9UJ-J+-TABS (fl+ 

H):J=J-IIIT J 
:B-INT BJ+i: 
RETUPN 
94SF0R G=1T0 c-: 

NEXT G*G-A<7 
♦H) J BEEP [I 
PRINT [1G!"P 



95: PRINT "M= 

;-o=";c:"i 

IE: RETURN 
98: E=2: B=-A- 

G0SUB 42: 
RETURN 




TAQUIN oWC 



Invents par Sam Lloyd vers 1880 aux USA, le Taquin eut 
une renommee egale a celle du Rubik's Cube actuelle- 
ment. Toutefois, I'inventeur ayant reconnu que dans 50 % 
des cas, il etait irrealisable, ne put le faire breveter, 
Rassurez-vous. la realisation du jeu est lei toujours possi- 
ble et vous demandera un peu de patience. 



6 RErWMJNlTIALlSATION ET rtELANGE 

7 DIM xr i6).ru61.Ptl6),C«C16),Ft3J 
B POKE 619,2:REM*«EFFACE CURSEUR 

9 FOR IMB8A4 TO »BBA7:P0KE I ■ 32 :NEXT ): 

UEn***5uppRiriE nor [CAPS] 

10 GOSUB 2500:REM***1MPRIME TITRE 
15 FOR 1 = ] TO 1B:P(I j=l:NEXT I 

10 F(8j — ] :F[1) = 1 :FC2) = -4:Ft3J=4 
20 H=l00-mT(50*RNDCm*2 

25 A- IS 

26 REM»**DEBUT nELANBE 
30 FOR I=! TO M 

45 B=INT(4«RND(] ]) 

46 IF (fl<5 ftND B-2) OR [A>!2 ftND B-3) TH 
EN GOTO 45 

47 IF Cfl=l OR 0=5 OR P.-? OR A>9) ftND 8=0 
THEN GOTO 45 

48 IF tfl-4 OR fl-B OR P.-12 OR fl-16) ftNO B 
-I THEN GOTO 45 

SB C=fl*F(B0 
■55 P(flJ=P(C);PCC)=16 

bb p.-c 

70 NEXT 1 

73 REHMICREflTION DES CflRflCTERES 

80 FOR !-l TO 25 

98 POKE 4BBB0*tC96*I)*eii63 

100 POKE 4BaB7*tf96 T U*B),63 

110 FOR J=l TO 6 

120 REftD LUF I<»11 THEN L-L.32 

130 POKE 460a0t(t96tI3*8J*J,L 

148 NEXT J 

150 NEXT I 

160 FOR 1=1 TO 16 

170 READ C«[|) 



Bruno TRINQUIER 

250 OftTfl 49,1,33,17,17,33,49,17,33,1,1,1 

260 DATA 33,17,33,17,17,33,33,17,17,43,1 

7,33 

270 DATA 25,37,37,37,37,25,9,25,9,9,9,9 

280 DATA 25,37,5,25,33,61,61,5,25,5,37,2 



305 DATA "ju"."ju , ',"l l .-,-j^",- " 
30B REfUHCALCUL OE Lfl POSITION DU 

309 REtltMNUflERO 16 

310 FOR 1-1 TO 16 
328 IF PCIJ=I6 THEN PL=JiG0TO 400 
338 NEXT I 

338 REn*»*CALCUL 0£S COORDONNEES 

339 REn«*DE CHAQUE NUHERO 
488 FDR 1=1 TO 16 
418 IF I<=4 THEN TtIJ=?:GQT0 450 
420 IF I<=8 THEN TCI)=9:G0T0 450 
430 IF K-12 THEN TtI)=ll:GOTO 450 
448 Ttn-13 

450 X-CI^4-IMTti-'4n*4:|F X=8 THEN X=4 
460 Xtn-12<2*X 
4?B NEXT I 

474 CLS:PR1NT:PRINT:PR1NT 

475 PRINT 'UOULEJ-WOUS LES REGLES ? ' :GET 



600 PLOT 16,25,STR«tNm 
BIB PRINT Chr*(30) 

618 REn*»*ENTREE OU TIOUUEnENT 

619 REI1**>0U OE L'ABANOON 

620 GET nt:[F PT«-CHR<C27) THEN GOTO 2800 
630 if rn<CHR«[6) AND nt>CHB«Cll) THEN G 
0T0 600 

640 ON (ASC(rt*)-7) GOTO 700,800,900,1000 

69B REt1***nOUUEF1ENT UERS GAUCHE 

700 IF XCPL)=20 THEN GOTO 600 

710 PM-PLO 

728 GOTO 1500 

798 HEH»**rtOUUEriENT UERS DROITE 

B00 IF XCPL)=I4 THEN GOTO 600 

810 Pn-PL-1 

B20 GOTO 15BB 

B98 RErH**nOUUEnENT UERS BAS 

988 IF TCPD-7 THEN GOTO 688 

918 Prl-PL-4 

928 GOTO 1588 

998 REH*»*nOUUEnENT UERS HAUT 

1888 IF YCPLJ-13 THEN GOTO 600 

1018 Pf1=PL*4 

1498 REn***TRACE 0£S PIONS DEPLACES 

1500 PCPL]=PCPni :PCPn)-16 

1505 PLOT XCPM),rf,Pn],C<CPCPnl) iPLOT XCP 

n),T(.proM,c«[p(.pn;n 

1510 PLOT XCPL),TCPLJ,C«CP(.PL)) iPLOT XCP 

L),TCPL)tl,C»CP(PL]J 

1520 PL-Pn 

1538 Nrl-Nn.1 

1536 REn***P10NS TOUS A LEUR PLACE ? 

1540 FOR 1 = 1 TO 16HF PCDOI THEN GOTO 

60B 

1550 NEXT 1 

1558 REfW**Sl OUI ALORS U1CTOIRE 

I5B0 PLOT 5,22,"FELICITAT]ONSm UNE AUT 



2540 RETURN 

2999 REMtMREGLES 

3808 CLS:PAPER B^PRINT 

3010 PRINT " JEU OU TAQUIN" 

3020 PRINT " —...........* 

3838 PRINT :PRINT 

3848 PRINT 'CE JEU C0NS1STE A F1ETTRE EN 

DHDRE 15 PIECES NUHEROTEES 

3858 PRINT " INI T I ALLE1ENT' :PR1NT "HELANG 



"ETANT DONNE* QU'IL MANQUE I 
:PR1NT ' ON PEUT G 



3055 PR IN 
3060 PR IN 
NUHERO 16 
L1SSER"; 

3Z72 PRINT " LES PIECES UNE A UNE POUR 
ARRIUER A LA SOLUTION:- 
30B0 FOR 1-1 TO 4iA«U)=A«m*r:«(.I J 
3090 A«C2J-A«[2)*CtCI'4) :AfC3)=A«t3) *C«C 
I '8 J --A<( 4 J =A« C 4 ) t-C* C I » 1 2] 
3100 NEXT I 
31 10 FOR I>! TO 4 
3120 PLOT 29, 10>I,A*U) 
3130 NEXT I 

3140 PRINT:PRINT:PRINT:PRJNT:PRINT 
3150 PRINT "UOUS DEPLACEZ LES PIECES A L 
'AIDE-PRINT "DES FLECHES- 
3180 PRINT "PAR EXENPLE EN APPUTANT SUR 
"DROITE, LE 




LA FLECHE" 
NUMERO 15 
3170 PRINT 
3188 PRINT 



,2,3,3,1 



200 DATA 0,1,2,4,7,0,3,2,3,0,8,3,1,2,3,2 

,2,1 

210 DATA 3,8,8,1,1,1,1,2,1,2,2,1,1,2,2,1 

,0,3 

220 DATA 4,12,4,4,4,4,4,12,4,5,5,4 

230 DATA 33,33,33,33,33,33,33,17,17,33,1 

,49 

240 DATA 49,33,33,17,17,33,33,33,33,33,4 

9,33 



Rf 
476 IF R«»"0" OR R«="o" THEN GOSUB 3B00 

478 REn***TRACE OU TABLEAU DE JEU 

488 A«=CHRtt4)TCHR<(27>' Q" i-CHR*(27J* , 'J" 
-CKR4C.4J 

489 CLS:2AP 

490 FOR 1 = 1 TO 21 :PRINT A*;NEXT I 

492 FORI* 1TO 16 

493 PLOT Xtn,TCl),C«tPtI)}:PLOT XCD.YC 

fj+iicttpui] 

494 NEXT I 

495 PLOT 15,17, ■TAOUIN' :PLOT 15,I8,"TA0U 
IN" 

500 PLOT 5,22, 'UTILISE? LES 4 FLECHES PO 

UR" 

510 PLOT 2,23, OEPLACER LES PIONS iESC PO 

UR SORT I R" 

528 PLOT B.24.' NOMBRE OE MOUUEMENTS" 



1578 PLOT 2,23," 

1571 PLOT 16,25,STR«CNm 

1575 G05UB 4000 

1576 ft»*"Ji#UT 188 

1578 REM»**UN NOUUEAU JEU ? 



GLISSERA COnnE":PRlNT "CECI" 
(REGAROE? LE DESSIN ET APPUT 
EZ SUR LA FLECHE DROITEJ" 
3198 GET RCIF R«OCHR«(9) THEN GOTO 3)9 

3200 A«=C*U3)»C«[141»C«tl61tC*C15] 

3210 PL0T29.14.A* 
3228 PRINT "DE MEME POUR LES AUTRES FLEC 
HES" 

323B LIAIT 488 
324B CLS:PRINT:PRINT 
325B PRINT "SI JAMAIS UOUS EN AUEZ ASSE? 

UOUS" :PR1NI "POUUEI ABANOO 
NNER EN APPUTANT " ; 



1588 GET A»:JF A»="0" OR At="o" THEN RUN 


32JM 


PRINT "SUR LA TOUCHE [ESC]" 


1999 REM***FIN 


327B 


PRINT :PRINT :PRINT 


2888 CLS:PAPER 7 


32B0 


PRINT "MAIS ATE2 UN PEU DE PATIENCE 


2885 CALL IIFB98 :REn»t*REND CLAUIER NORMP 


III 




L 


I29B 


UA1T 588 


2818 POKE 618,3:REM*«»RENQ CURSEUR 


3295 


PAPER 4 


2814 REM***REND LE nOT [CAPS] 


J3BB 


RETURN 


2015 PRINT CMR»(20J :PRINTCHR«C28KP0KE 5 


4BM 


FOR 1=1 TO 4 


24,255 


4B10 


plat 7, a, a, i 


2020 END 


4020 


REAO K 


249B REM***T1TRE 


4030 


MUSIC 1,3,K,15 


2508 CL5:PAPER 4 


4040 


IF I<4 THEN WAIT 20:GOTO 4058 


2510 FOR 1=1 TO 1 1 :PRINT:N£XT 1 


4045 


UAIT 180 


2520 PRINT CHR*M);CHR«t27): ' T" ;CHR«C27 ) 


4KB 


PLAT 0,0,0,0 


i*N TAQUIN" 


4B0B 


UAIT 5 


2530 PRINTCHR.C4) 


4B ■."' 


NEXT I 


2531 PRINT =PftlNT 


-Hb.' 


DATA 8,8,8,4 


2532 PRINT" BRUNO TRINQUIER' 


(B9fl 


RETURN ■ 
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Bruno TRINQUIER 




page 2 
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Bernard RAGOT 
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Philippe LESOT 
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PC1500 
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Elie MADEUF 
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ZX81 




Yams 


Slim CHERNI 




page 3 


TRS80 




Save-disk 


Bernard DUPIN 




page 4 


T199 4/A(b.e.) 


Desassembleur 


Robert BOIS 




page 12 


Tl 99 4/A (b.s.) Etude de fonctions 


J.M. DELPERIER 




page 15 


T07 




Othello 


Jean-Pierre MUNIER 


page 14 



YAMS 



Jouez ou apprenez a jouer au Yams sur votre ZX. 

Slim CHERNI 

Mode d'emploi ; 



Le but du jeu consiste a obtenir le meilleur score. Chaque parlie 

comprend 13 tours ; a chaque tour la machine lance les des (3 fois 

maximum), le joueur selection ne les des a relancer afin d'obtenir le 

maximum de points. A la realisation des figures unbaremede points est 

defini 

Pour selectionner les des a relancer, entrez le numero d'ordre ! 

Ex. < 36366 fig. N° 13. le YAWS : selectionnez _ 13 _. possibilite de faire 

rouler les des. 

Ex. _ 11333 _satisfait de votre resultat avant le 3* jet. pressez new-line. 

Lordmateur se charge de la comptabilite des points, de la visualisation 

des resultals et de la validite des figures (8 a 13). 



«*P"P 



v w 



n o o □ ed 



wmm 



BRE : 
SUI: 

rou; 

CAR 







*RUTEUR CHERNI SLIM 








b 


REM 


flllti«il*»tll(tlllt 


7 


REM 


--INITIRLI5ATION UAR 






SCO=0 




LET 


X=0 




LET 






..£1 












LET 






LET 
REM 


--PRESENTATION DU JEU 



60 LET «• = '• 123*56 MAXIMUMD.PR 
irIsbrelan SUITE FOULE CflRR 

E '■'HMS 

63 CLS 

65 DIM fit5' 

6? DIH CS (2,2) 

70 PRINT 'DES OUE UOU3 UEREZ R 
PPRRRITRE JOUEUR:-- UOUS SELECT I 
ONEREZ LC5 J2I R^ELRNCER. /SINO 

ES RECLES" 

S3 i^ R y*-"S" OR ■•-»•" THEN OO 

sua siM 

10O PRINT RT l«,7;"NOMORES OE J 
QUEUR";RT ll.Hi I* ' ^ a> 
105 INPUT N T „ 

US ?rint"rt T 13"o,b;" -JOUEUR NO 

130 INPUT C*(OJ 

140 PRINT RT 13*©,20;C*(Q) 

ISO NEXT O 

160 LET T=l 

17B LET TH-O 

160 LET TA-0 

190 LET TB = 

300 LET TC-O 

,?18 LET TE-0 

?20 LET TF«0 

230 LET TG"© 

34 SOSUP 5(909 

350 PRINT RT 0,27,500 

250 RRND 

300 REM ##**#»•»«##**»*****»»#* 

301 REM TIRfiGE RU SORT DES DES* 
305 REM *##♦»**»»#»»*#****#»**• 

310 LET L=C 

360 FOR 1=1 TO 3 

370 LET J = INT (RND«6)tl 

300 LET R (II =J 

390 IF X=2 THEN LET TM=U*TM 

400 LET L= (12#I) -4- 

*io if joint <j.-2> *a then plot 

L. 32 _ 

420 IF J<6 THEN GOTO 50O-(J»10> 

430 PLOT L-2.32 

435 PLOT L+2,32 

460 PLOT L-2.3* 

461 PLOT L*2,30 
480 PLOT L-2,30 
461 PLOT L+2,3* 

4SS REM RIGUILLRGE 

4.90 IF U = 3 AND X=3 THEN GOTO 32 
""496 IF X = l OR X-3 THEN RETURN 




AND T=l THEN 



500 NEXT I 
530 IF X=*l OR 
RETURN 

540 IF X=4 THEN RETURN 
550 IF T=0 THEN GOTO 14230* 
1I3O0 REM (liHtHltHfUlK 

1001 REH * 1 2 3 4 5 6 
1O0E- REM **•»#«##»**•***#»* 

•110 LET U=U*1 

1120 LET H=0 

1130 LET X=l 

1160 LET vflsv 

1170 LET UB=U 

viae print rt 10,3,'- zx 

1200 PRINT RT 10 , 20, "LES ' , fi 



TO . 

1990 LET H.H.l 



L'ooe rem 
aftfi rem 

<?005 REM 



RELANCE DES DES 



--.010 IF T=0 THEN LET PsO 

3013 IF T=0 THEN RETURN 

S!015 IF 5«3 THEN GOTO 3060 

2020 LET PO = 

2030 FOR 1=1 TO 5 

504-O IF T=1 „S N R & B < *> i>Ufl RND fl(I 

2050 IF H-i 
POsfl (IJ +PO 

-?060 NEXT I 

tQ&B IF T*0 THEN RETURN 

:*065 REM 

«'07» IF X«3 THEN GOTO 3060 

-•060 IF He2 THEN GOTO 1990 

2093 LET X=0 

5094 REM TOTRL DES POINTS 

2090 LET Tfl-TR*PO 

i>220 LET PS-STR* PO 

3240 PRINT RT Utl2,7-LEN P« P» 

2245 REM ---TOUR DU JOUEUR----- 



£270 IP U<6 THEN GOSUB 4-000 



£S0S REM 

5505 REM TOTRL PRRTXEL 

2510 LET TM-O 

351S PRINT RT 10,2O,A*19 TO IS) 

SS16 LET B*-H»(9 TO 15) 

3517 PRINT RT 10,3;" 

3520 LET X-& 

2530 GOSUB 4-000 

2535 LET TPfl~TM+TA 

2640 PRINT RT 19,B;TMiflT 20,5;TP 

H 

2545 REM TOUR DU JOUEUR 

£680 LET D*l 
2630 LET TH-0 
2640 LET X^a 

?S50 IF T-l RND N>0 THEN LET T ■© 
2655 LET C = l 

3660 IF T»0 AND N>0 THEN GD5UB 4- 
000 

SAM REM **«<**«* **i (iiniim * * 

J001 REM »D.P BRE. SUI . FOU.* 

* CRRRE YRMS » 

3002 REM *##»»***»•••••* ***+♦*** 

3003 REM INITIALISATION 

3010 LET B* = "" 

3015 LET B = S 

3020 LET 5=0 

303O LET U=U-tl 

304O IF U>6 THEN GOTO 3B10 

3045 PRINT RT 10,3;" ZX 

3050 PRINT RT lO , 20 ; A* ( (U *B) +6 T 

O (U»B) +15) 

3055 LET X=2 

3060 G05UB 40OO 

3070 LET x=3 

3080 LET E=0 

3090 LET 5=5+1 

3093 Xr 3=4 THEN PRINT RT 12+U,S 

1, "O" 

3097 IF 5=4 THEN GOTO S640 

3100 LET K=B 

3120 LET U=0 

3136 REM »»#»***»*»».*****«***#« 

3139 REH i COMPflRRISON DES DES + 



31S0 FOR 1=1 TO B-l 
3160 FOR J=I+1 TO B 
3170 IF U«3 RND R(I)»fi(J) THEN L 

31S0 IF T=l AND U=3 AND E=l AND 
l.R(Il«fl(J) OR A(I)=UA) THEN GOSU 
B 4010 

^SS^fUy >3 HNC> B,II <>fllJ) THEN 
GOTO 3230 

nit »r u ja,B , a lbt k - ki1 

iiSi SExV'i 3 ™ EN LCT E - B ' 1 ' 

3S40 NEXT I 

324S REM 

3250 IF T=0 THEN RETURN 

3366 REM «*##**#.#*****«*•**#*# 

3269 REH ' EUALUATION DE3 DES * 

3270 REM »*»#»**•*»»»*»-»»»»»»» 

3B77 LET U=0 

32B0 LET DD»0 

3i90 LET DC«0 

3300 IF U<>3 THEN GOTO 3460 

3305 REM SUITE 



3335 IF A1Z)«6 THEN LET P0=DD+1 

3330 LET W-mi2!.iJ 

3340 NEXT Z 

3350 LET UR»0 

3360 IF R(E)=l m 0R DC+DD>1 RND DC 

3370 IF A(S) = 

3390 LET E=l 

3*00 IF IK<2 AND DC+DD = 1 AND (U=> 
15 OR U»30) ) THEN GOTO 37SO 

3410 IF To0 THEN LET P=0 

3420 IF T=>0 THEN RETURN 

3*40 IF 5(4 THEN GOTO 3090 



3460 IF K=0 THEN GOTO 3053 

3480 IF K<>4 THEN GOTO 3620 

3500 LET R=e 

3520 LET R=(U-EW3 

3540 LET U-R 

3360 IF K=4 RND R o INT R THEN LE 

356© LET E=0 

3600 GOTO 3680 

3620 LET U=U/K 

3640 IF K*2 THEN LET E=RB5 (U-EI 

ET S E=.O fr Kltl ° R K=3 ° B K> * THEN L 

3670 LET UR-U+E 

3680 LET UB-U-E 

3700 IF K»2 fiND U<>4 THEN LET UB 

3715 REM TEST PRINCIP. 

3730 IF K=l THEN LET K=0 

3730 IF 5(4 RND (U>K OR U=2 AND 

£*8o°P ^ Hl nND K=3 0R U= * OND K= 

6 OR U*6 RND K=6) THEN GOTO 201O 

3735 REM RESULTRT 



(INT ( ie*u'**l . 5 + 



3750 LET P=INT 

) .-10) *10 

3752- IF T = THEN RETURN 

3755 LET P»=STR» P 

3760 IF S<>4 THEN LET TE=P+TE 

3770 PRINT RT 12+U.22-LEN P»; P 

3600 GOTO 2640 

3810 LET TTA=TPA*TE 

3840 PRINT RT 20.19.TTR 

36^0 IF No© THEN GOTO 4900 

3660 GOTO 7040 

3999 REM ******»•+#*»+••••»**** 

J-000 REM » EFFRCEMENT DES DE5 # 

4001 REM »*#*••*#•*•»**»«+*••#* 



4030 FOR G=2 TO 6 STEP 2 

J-030 UNPLOT L + 2,G + 26 

4O40 UNPLOT L-2.0+2S 

■1.050 NEXT G 

•t060 UNPLOT L,32 

4092 IF X«l OR X»3 THEN GOTO 365 

V395 NEXT I 

illO GOTO 260 

WWV HI- n l>Mtll*tt«ltt>ittMI< 

4201 RIM * SELECTION DES DES i * 

* RELANCER JOUEUR 1 

4202 REM »»**+#»*»#+»*♦*#**++*** 

4 210 RETURN 

-1330 IF X«2 THEN GOTO 4490 

4240 LET AA>0 

4245 LET D=l 

4235 LET X«I 

-L260 PRINT RT 10 , 3; " JOUEUR. " , C* ( 

D,l TO 2) 

4270 FOR M=l TO 2 

4280 INPUT RS 

^.290 IF LEN R«>6 THEN GOTO 4-280 

430O FOR R=l TO LEN R« 

a-310 LET I-UAL R»(R TO A) 

■■-320 GOSUB 4O10 

4 33 NEXT R 

4340 NEXT H 

4350 IF U>0 THEN GOTO 4560 

4420 REM TOTRL DES P. 1x3/3/-* 

4425 GOSUB 2O20 

1430 LET M=a 

4440 IF t>'l THEN LET TB=TB*PO 

44S0 IF D=2 THEN LET TC=TC+PO 

4460 LET P**5TR« PO 

44BB PRINT RT 12+U , 10+ (3*RR] -LEN 



4480 GOTO 4710 



-TOTRL PARTIEL- 



4BOO IF D«l THEN LET TPB=TM+TO 

4510 IF D«l THEN PRINT AT 1*,S;T 

M: RT 20, 8;TPB 

45a0 IF D=2 THEN LET TPC«TM+TC 

4.530 IF D=2 THEN PRINT RT 19,11; 

TH; RT 20, 11;TPC 

4540 IF 6»2 THEN GOTO 4785 

4545 GOTO 4710 

4550 REM RESULTRT D. PR... YAMS 

4560 OOSUB 3100 

4 6O0 LET 5=0 

4-610 IF U«3 THEN GOSUB 3270 

4620 IF U<>3 THEN GOSUB 3713 

4650 IF Del THEN LET TF=P+TF 



t£$g , IF -r D S2_ISES ^ TG-P+TG 



4700 REM -INITIALI5RTION URR . JOU 
CUR NO-2 — " 

4710 IF N<=1 THEN GOTO 4790 

^-720 LET AR^l 

1730 LET D=2 

■"-740 LET X=4 

^745 IF A* (9 TO 15) =B$ THEN LET 

47S0 LET TM=0 

4760 GOSUB 4000 

•'780 GOTO 4250 

4785 REM -A LR MACHINE DE JOUER- 

4 790 LET X=0 

-»M LET T=l 

1805 IF CM THEN GOTO 30O0 

•IBie IF U>=B THEN GOTO 2500 

4820 GOTO 4000 

-1900 REM TOTRL DES 2 JOUEURS- 

4-9AE- IF N «8 THEN LET TPC = 

4910 LET TTB=TPB+TF 

-920 LET TTCiTPCtTG 

-;Q30 PRI^fT RT e O,£3,TTB 

4935 IF N<=1 THEN GOTO 4950 

4940 PRINT RT 20,27;TTC 

-950 REM 

4960 IF TTR-TTB AND TTR ) TTC THEN 

LET SCTTR 

■♦970 IF TTB.'TTR RND TTB»TTC THEN 

LET SCaTTB 

49ee IF TTOTTR RND TTOTTB THEN 

LET 5C-TTC 

'-984 IF 3C)=SCO THEN LET SCO-SC 

4390 GOTO 7OO0 

"000 REM #**#**#* + **■*• + #** 

SO01 REM * " " 

.'COS REM + 

50O3 CLS 

£-■005 LET P=0 

B010 PRINT " 
•SCORE O0O( — 



-MEILLEUR SCORE - 



^04O FOR Itl TO 4 

S«4.e for o=a to as step e 

f.Otei PRINT RT 3 , O; "^^^ " i RT 

4"* - *l4 ftT 8'Oi"| I " i Pit 6, 

■■06S NEXT 

5070 FOR 1=3 TO 7 

S08O PRINT RT I,©; "M"; AT 1,31 




To ae 



T165 LET P=P+_ 

5169 PRINT RT 1.0,"* ;__;_- 

siei print «t i7aiH«(p to pi j 

1, 15, RC (©+ (Pf8) TO IO+ (P*8) ) 

9X79 NEXT I 

*T° e PpiNT -„ 

5190 PRINT RT 19, 1; "MR.X" ; RT S 
^^J^Q^-^jjT^^O^lS; "TOT"; AT 19,3 

5330 RETURN 

6O09 REM 

-3010 REM 
•Oil REH 

60 ia CLS 

e«15 PRINT TAB 9;"REGLf; DU JEU" 

'"-O20 PRINT RT 2,6; "LE JEU CONSIS 

TE R FRIRE RPPflRAITRE f-CS COMBIN 

RISON3. " 

-5030 PRINT 

G04C PRINT "FIG. 12 3 4 3 

6 " 

6050 PRINT "IL SL'FIT DE FRIRE RP 

. RRhITHE LE MAXIMUN DE 1. LE JO 

>JEUR MARCUERR AUTRNT DE FOIS 1 O 

UE LE NOMBRE DE DES REPRESENTfiNT 

CETTE FRCE . (POUR 2 3 ETC . . > " 
6360 PRINT 

'I-O70 PRItJT "FIG. 6 -LE MAXIMUM-" 
E060 PRINT "LES DES NE SONT LRNC 
fcS OU UNE SEULE FOI5,ON COHPTRB 1 
USE." 

^090 PRINT 

ei00 PRINT "FICB -DB.PRIRES 2- 

2-3-3 10P." 

6110 PRINT "FIG. 9 -LE BRRNLRN 2- 

2 -3 30P." 

5120 PRINT "FICIO-LR SUITE 1- 



"FIG. 11 -LE FOULE 
"FIG.12-LE CARRE 



,= -3-4-5 I _ 

C-130 PRINT 

2-2-3-3 SOP 

6140 PRINT 

3-2-2 HOP. 

515e PRINT "FIG. 13- 

S-2-2-21SOP." 

6160 IF INKCYI="" THEN GOTO 6160 

6178 RETURN 

e999 REM COMMENTRIRE3 

7000 PRINT RT lO, 1; "UOULEZ-UOU5 
I'EFRIRE UNE PARTIE" 
7010 INPUT G* 

'020 IF G»»"0" THEN GOTO 10 

'0 30 STOP 

'■050 PRINT RT 10,3; "UOUS NE UOUL 

iZ PRS JOUER 1- 

7055 LET SCO -TTR 

'0&t> INPUT G* 
T^070 IF 0* = "0" THEN GOTO 10 
?a©0 5TOP ■ 



TOUR DE HANOI 



Une legende orientale dit que Dieu est en train de jouer 
avec les tours de Hanoi de 64 disques. Quand il aura termi- 
ng, ce sera la fin du monde ! Rassurez-vous, il lui faudra 
355 milliards de siecles pour finir son jeu ! Cela vous laisse 
a peine le temps de vous debattre avec vos 19 disques. 

Jean-Frangois DURIX 

Mode d'emploi : 

II taut a I'aide des touches F1.F3.F5, (aire bouger les disques surlestrois 
piquets en sachantqu'il est impossible demettreundisque sur unautre 
disque plus petit que lui. Si par exemple vous tentez de mettre un dis- 
que sur un autre disque plus petit. X07 doit normalement emettre un 
son strident ;dememe si vous appuyez sur les autres touches a part les 
touches 1, 3, 5 qui jouent le meme role que F1, F3, F5. 



CM*° N X-07 




1 RENHPRESENTMIONii 

3 V=0 

10 CLS 

20 LOCATE?, 0:PMNrTOURS- 

30 LOCATE B % I:fftINT"DE- 

40 LOCATE 7,2:PRINT'HflNDI" 

50 FOR]=1T0500:NE>TI 

100 CLS 

110 lNPUT'Coibien d'annEaux ";N 

120 IFN<30RN>1960TOI10 

125 CLS 

130 FORI=W095STEP38 

140 LINEII, 311-11, 31-NI 

ISO NEITI 

140 F0RI=1T0« 

170 LINE(!-N*ia,32-ll-(20*)l-!, 32-11 

ISO NE1T! 

200 KEY«(1I=" !■ 

210 KEY*(3>=" 2" 

220 KE»I(5) = - 3" 

230 TlnE»=*00:00:00* 



300 B=V«.1IKKE»»I 

305 LOCATEO,0:PRINTTI»EI 

310 1FBO1AKDBO2ANDBO360T0300 

312 W*\ 

320 BEEP23.1 

330 A=38tB-20 

340 C-31-N 

350 IFPOINT(A,CI=0THEN36OELSE370 

340 1FC<31THENC=CH:60T0350ELSE500 

3?0 1=1 

3B0 1FP01NT(A-I,C>=-1THEW=1H:GOT0380ELSE400 

500 BEEP49, 10:6010300 

400 0=1 

405 B=VAL(INKEVI) 

610 !f3O!ANDBO2A»l)BO3S0T0405 

420 BEEP23, 1 

430 E'3B«B-20 

440 F=31-« 

450 lFPOINTiE,F)=01HEN440ELSE670 

640 lFF<SlTHEKF=Ft!:SOT0450ELSEF=32:60T07!0 ■ 



SAVE-DISK 



suite du 
listing du 
N15 



ECRITURE SUR CASSETTE A 580 BftUDS 



5658 


3EB8 


05520 


LD 


ft. B8H 


3650 


32EC37 


05530 


LD 


(37ECH).fl 


5G5D 


E3 


05540 


EH 


-SPJ.HL 


565E 


E3 


05550 


EX 


(SP).HL 


5E5F 


E3 


05560 


EX 


(SP).HL 


5660 


E3 


05570 


EX 


(SP).HL 


5661 


30EC37 


055S0 RTR40 


^D 


fl. (37ECH) 


5666 


CB47 


05530 


Bll 


0.fl 


566E 


280B 


85600 


JR 


Z, RTR50 


5668 


CB4F 


05610 


b:t 


l.ft 


566ft 


28F5 


05620 


JR 


Z, RTR40 


566C 


3AEF37 


05630 


LD 


fl. (37EFH) 


5S6F 


77 


05640 


LD 


(HL). A 


5670 


23 


05650 


[NC 


HL 


5671 


18EE 


05660 


JR 


RTR40 


5673 


Fl 


05670 RTR50 


pgp 


ftF 


5674 


F5 


05660 


PUSH 


ftF 


5675 


25 


05690 


PUSH 


BC 


5676 


FE1 1 


05700 


CP 


UH 


S673 


0620 


05710 


LD 


B. 20H 



367ft 2B02 
567C 0600 
567E 3AEC37 
55Bi B8 
5682 CI 
5583 200E 
5685 04 
56B6 3fiOB5fi 

5689 B8 
56BR 78 
56BB 20C2 
56BD Fl 
56BE CI 
56BF ZC 

5690 10A9 

5692 C9 

5693 219C56 
5696 CD8753 
5699 C39953 



05720 

05730 

05740 RTRG0 

05750 

05760 

05770 

057B0 

05790 

85300 

056 1 

05B20 

05830 



05850 
05860 
05870 



LD 

JR 

POP 

POP 

INC 

DJNZ 

RET 



05890 RTRERR LD 



NZ. RTRERR 



HL. MSQ9 

MSG 

SYSTEM 



550 1 


3E04 


04330 


WRHDR 


LD 


A. 4 




550:. 


D3FF 


043&E 




OUT 


(0FFH).ft 




5505 


0564 


04370 




LD 


B. 100 




5507 


ftF 


043S0 


WHD10 


*0R 


fl 




5508 


CDRF53 


04390 




CALL 


WBYTE 




55 on 


IMF ft 


04400 




DJNZ 


WHD10 


_ 


SSflD 


3EA5 


04410 




LD 


fi, 0fi5H 


-rO 


35flF 


E5 


04430 


MBYTE 


PUSH 


HL 


\Y 


55B0 


C5 


04440 




PUSH 


BC 


» * 


55B1 


D5 


044S0 




PUSH 


DE 




55B2 


F5 


04460 




PUSH 


RF 




55B3 


0E0B 


04470 




LD 


c.e 




5505 


57 


044B0 




LD 


D. 




55B6 


CDCF55 


04490 


WBT10 


COLL 


MBIT 




55B9 


7fi 


04500 




LD 


Ft, D 




55Bfi 


07 


04510 




RLCO 






55B0 


57 


04520 




LD 


D.A 




55BC 


300B 


04530 




JR 


NC. WBT20 




55BE 


CDCF35 


04540 




COLL 


WBIT 




55C1 


0D 


04550 


WBT15 


DEC 


C 




55C2 


20F2 


04560 




JR 


NZ.WBT10 




55C4 


Fl 


04570 




POP 


AF 




55C5 


Dl 


045B0 




POP 


DE 




55C6 


CI 


04590 




POP 


BC 




55C7 


El 


04600 




POP 


HL 




55C8 


C9 


04510 




RET 






55C9 


0687 


04620 


MBT20 


LD 


B. 135 




55CB 


10FE 


04630 




DJNZ 


* 




55CD 


18F2 


04640 




JR 


WBT15 




55CF 


3E05 


04550 


WB1T 


LD 


A. 5 




53D1 


D3FF 


04570 




OUT 


<0FFH>. A 




55D3 


0610 


04680 




LD 


B. 16 




55D5 


10FE 


04690 




DJNZ 


* 




55 D 7 


3E06 


04700 




LD 


a.g 




55D9 


D3FF 


04710 




OUT 


(0FFH), A 




55DB 


0610 


04720 




LD 


B. 18 




55DD 


10FE 


0*4730 




DJNZ 


* 




55DF 


3E04 


04740 




LD 


At 4 




55E1 


D3FF 


04730 




OUT 


(0FFH).fl 




55E3 


06(1; 


04760 




LD 


B.97 




55E5 


10FE 


04770 




DJNZ 


t 




5567 


C3 


04780 




RET 










04810 


5 ENTREE D' UNE LIGNE OU 


CLAVIER > 


55E8 


21775ft 


04B30 


COM IN 


LD 


HL. C0M8UF 




5SEB 


3E20 


04840 




LD 


fl. ' ■ 




55ED 


0E20 


04858 




LD 


B. 32 




55EF 


77 


04B60 


COM05 


LD 


(HL). A 




55F0 


23 


04870 




INC 


HL 




55P 1 


10FC 


04B80 




DJNZ 


COM05 




55F3 


21775ft 


04900 




LD 


HL. COMBUF 




55FG 


0E00 


04910 




LD 


c. a 




55F9 


CD4900 


04920 


COM 10 


COLL 


49H 




55FB 


FE0D 


04930 




CP 


0DH 




55FD 


Cfi.3300 


04940 




Jp 


Z. 33H 




5600 


FE0B 


04950 




CP 


B 




56B2 


2813 


04960 




JR 


Z.COM20 




5604 


FE20 


84970 




CP 


20H 




5606 


3SF0 


84980 




JR 


C COM 10 




5611U 


47 


04990 




LD 


B.A 




5603 


3E20 


05000 




LD 


ft. 32 




5EBB 


B9 


85010 




CP 


C 




560C 


28EA 


05020 




JR 


Z.COM10 




5606 


78 


05030 




LD 


fl. B 




36BF 


77 


05040 




LD 


(HL).A 




5610 


23 


05058 




INC 


HL 




561 1 


BC 


;^^ 




INC 


C 




5612 


CD3300 


05070 




CALL 


33H 




561S 


18E1 


85080 




JR 


con 10 




5617 


73 


05090 


CDM20 


LD 


fl. c 




5618 


B7 


05108 




OR 


A 




5619 


28DD 


85110 




JR 


Z.COM10 




5&1B 


3E0B 


05120 




LD 


fl. 8 




561 D 


CD3300 


05130 




COLL 


33H 




56201 


3620 


05140 




LD 


(HL).' " 




5622 


28 


05150 




DEC 


HL 




5623 


BD 


05160 




DEC 


C 




5624 


1BD2 


85170 




JR 


COM 10 








05200 


! LECTURE SUR 


LE DISOUE 


( 10 PISTES) 






05220 




LD 


fl. (TRACK) 








05230 




CfiLL 


RDBUF 




5626 


F5 


05250 


RDBUF 


PUSH 


OF 




5627 


F3 


05270 




DI 






3628 


3E01 


85288 




LD 


fl. 1 




562ft 


32E037 


05298 




LD 


(37E0H). A 




562 D 


010000 


03300 




LD 


BC.0 




5630 


CD6000 


05310 




cm . 


60H 




5633 


3fi075fi 


057,20 




LD 


A. (LTRACK) 




5636 


47 


05330 




LD 


B.A 




5637 


Fl 


05340 




POP 


AF 




563B 


210050 


05350 




LD 


HL. BUFFER 




5G3B 


C5 


05370 


RTR10 


PUSH 


BC 




563C 


F5 


05380 




PUSH 


AF 




563D 


32EF37 


05390 




LD 


(37EFH). A 




5640 


3E13 


05400 




LD 


fl. SEEK 




3642 


32EC37 


03410 




LD 


(37ECH). A 




3645 


CD0259 


05420 




CfiLL 


BUSY 




5B4B 


3E01 


05440 




LD 


A. 1 




364A 


32E037 


05450 




LD 


(37E0H). A 




S64D 


0600 


05470 




LD 


B, 1 


SECTEUR 


564F 


78 


03480 


RTR20 


LD 


A. B 




5650 


32EE37 


05490 




LD 


(37EEH). A 




3653 


3E01 


05500 




LD 


fi. 1 




3653 


32E037 


05310 




LD 


(37E0H), A 





©o 






569C 
56B4 


45 
FW 


56B5 
56D3 


AD 


56D4 
56EF 


4D 

00 


56F0 

5784 


45 
BC 


3705 

5722 


51 
BD 


5723 

573B 


4C 
F|0 


573C 
5760 


4E 

to 


576; 
5785 


46 


5786 
57fifi 
57flB 


4'. 
00 
00 


57RC 


4E 



05990 MSG4 



'METTRE LA CfiSSETTE A ECRIRE' 



06170 M5G19 



05210 M5G20 
05240 : C H 



DEFM 
DEFB 

DEFB 

DEFM 
A R G 



'COMMENTOIRES t (32 CARACTERES MAX) 



'NONflME* 
E M E N T 



-) DISDUETTE 



37B2 310053 06260 COPY 



57BB 21775A 
57BE CD8753 



57C1 21E439 
57C4 CD8753 

57C7 CDflfi53 

37CA 3E01 
57CC 32E037 
57CF 3E03 
57D1 32EC37 

57D4 21355A 
57D7 CD8753 
57DA CD4900 
57DD CD3300 
57E8 FE4E 
57E2 CAEC57 
57E5 FE4F 
37E7 20EB 
57E9 CD293B 

57EC 3E00 
57EE F5 
57EF 21185A 
57F2 CD8753 
57F5 F3 
57F6 210000 
37F9 CD9302 
37FC CD3502 
57FF 5F 
5800 CD3502 

5803 57 

5804 CD3S02 
3807 93 

5808 92 

5809 C29453 
580C 210050 
3B0F CD2153 
5B12 Fl 

5813 F5 

58 14 CDED5B 
3B17 Fl 
5818 4F 
3B19 3fifi75fi 
581C 81 
581D 4F 

581 E 3AA95A 
5821 91 
5B22 79 
5823 F2EE57 

5826 C39953 



06340 
06350 
05360 

06380 
063*0 

06400 
06410 

06430 COP02 

06440 

064S0 

06460 

06470 



CfiLL 
CfiLL 
CALL 



05490 
86500 
06510 

06530 COP 15 
06540 COP20 
06530 

06550 
06570 
055B0 
06598 



05510 
06620 
86630 

06640 
06650 



06670 



COLL 

SUB 

SUB 

JP 

LD 

COLL 

POP 

PUSH 

CALL 

POP 

LD 

LD 



06690 
06700 
06710 
06720 
06730 
06740 
06750 
06760 
06770 
067B0 
05730 
0EB00 



06890 FORMAT DI 



5837 3E01 

5839 32E037 

5B3C CDA259 
583F Fl 

5840 F5 

5841 32EF37 

5844 3E13 

5845 32EC37 
5849 CDA259 



07010 
07020 
07030 
07040 
07050 
07050 
07070 
07080 



CfiLL 

PQP 

PUSH 



HL. MSG5 
MSG 

FNTFP 



(37E0H), A 
A. REE-TOR 
(37ECH),A 

HL. MSG 13 
MSG 

43H 
33H 
'N' 
Z. COP 15 



HL. 
29 3 H 
235H 
E, ft 
235H 
D. 
235H 



NZ. RWERR 
HL. BUFFER 
RDBLOC 



WDBUF 

AF 

C.A 

A, CLTRACK) 

A. C 

C.A 

A, (NTRACK) 




<37E0H),A 




C37EFH). 
A. SEEK 

(37ECH). 
BUSY 



Suite page 6 



NERKA 



Si vous aimez la mer et si vous n'etes pas claustrophobe, 
ce jeu de simulation est fait pour vous. 

Michel ZINDY 

Mode d'emploi : 

Nerka est un jeu de simulation dans leque! les situations sont reprodui- 
tes le plus fidelement possible. 

Vousetes aux commandes d'unsous-marin nucleaire. arme de missiles 
mer-mer et de torpilles. Votre mission est de detruire le maximum de 
batimentsennemis Vous pouvezplonger, rester en immersion perisco- 
pique, lancer vos lorpilles. vos missiles, faire le mort en vous collant 
au fond, lacher de I'huile, etc... 

Les bateaux ennemis se deplacent et les corvettes tentent de vous 
envoyer par le tond avec leurs canons et leurs grenades sous-marines. 
Vous remarquerez que vous ne pouvez tirer vos torpilles que dans I'axe 
du submersible (tubes avant ou arriere), alors que les missiles se depla- 
cent dans les huil directions et detruisent tout dans un rayon dune 
case autour de leur point d'impact. Attention aux collisions avec les 
mines et les bateaux !! 

Un certain nombre de bateaux ravitailleurs vous permettront de vous 
refaire une sante. les pleins de missiles, de carburant et de torpilles. 
Mais les situations qui peuvent se presenter sont tenement nombreu- 
ses que je vous laisse les decouvrir. 

Les touches de commande (voir listing) vous renvoient dans les sous- 
programmes correspondents A noter que (P)eriscope permet de 
regarder tout autour de soi, puis de manoeuvrer ou de tirer (M ou T). A 
noter egalement qu'il est presque toujours possible d'annuler une 
commande en tapant une autre touche que celles atlendues (on 
revient alors au menu). Attention ! ne taper RETURN que lorsqu'appa- 
rait le curseur apres la question. 



A suivre : 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 

La Redaction 



ft ■':■-. :-;-: 



34 - 


0*E 769-24 CALL 774 




"Q" THEN GOSUE 18004 


1299 


RETURN 


1299 


REM INITIALISATIONS 


1344 


BA - INT ■ PHD . 1 '■ » 



1 HOME 

ze GOSUE U4fl 

44 GOSUB 1344 

£08 REM COUPS DU PROGRAMME 

210 GOSUB Z0000 

225 casus 300 

£30 GOSUE £000 

231 GOSUB 6500 

240 GOSUB 5000 GOSUE 100 

243 SOSUI 300 

260 GOSUB 6300 GOSUB 6200 

263 GOSUB 300 



U\P-F« 



270 



OS'JE I 



273 GOSUB 6300 GOSUB 300 
280 IF P < 14 THEN AIR = 1000 PU 
■ PU ♦ 100 IF PU > 6000 THEN Pi 

- 6000 

293 IF P > ■ 19 THEN AIR « AIR 

- 30 PU - PU » 30 IF pu :■ 6000 

THEN PU - 6000 
290 SOSUI 3000 

293 GOTO 223 



m 



PRiN 



TP.UCTIQN" 

,82 HTAB 1 yrftl 22 PRINT ' . P l-EB ISC01 

tn/ftNoeuuPES rm* (S>on«r 

<R/APPORT DOM ICMWTE" 
393 HTAB I "?*■ 21 FR'NT "COMManDE 

310 GET R» POKE 766.134 POKE 769.24 
CALL 774 INUERSE PRINT RJ NCRMmL 

HOME 
320 IP P* ■ " p " ™ Efl PE ■ I GOSUE 20i 

334 IP P* ■ """ 

344 IF PI = "T" 

334 IF R* ■ "E" AND P t "14 AND D' 3 ':■ 

• 4 THEN CQSUI 21291 

364 IF RI * "P" THEN GOSUB 3644 

370 IF P* ■ "A" THEN GOSUB 3744 

344 IP P* ■ "3" THEN PE « GOSUE 2000 

390 HONE RETURN 

300 REM RAFPAICHISSENENT ECPAN 

303 IF FH ;■ THEN FQR TT - 1 TO 3 

COLOR ■ 3 HLIH 18.22 AT 2 HLIN 16- 

22 AT 3 POKE 768,90 POKE 764.100 
CALL 770 COLOR = * HLtN 1822 
AT 2 HLIN 18 22 AT 3 NEXT 
COLOR » 3 HLIN 18.22 AT 2 HLIN 16 

22 AT 3 GOTO 310 

306 COLOR - 4 HLIN 18.22 AT 2 
HLIN 18.22 AT 3 

310 HTAB 31 UTAB 2 INUERSE IF XC 
< 10 THEN PPINT -0"; 



328 



pint : 



IF 



■■ 10 THEM 
530 PPINT YC 
340 HTAB 37 



- [N 



"4-: 



IF P : 14 THE" 

• "! 

100 AND F !■ =14 THE" 



PRINT "O"! 



334 COLOR - S "LIN 10-30 AT 1 
333 FOP I = TO INT 'AIR 54/ 

COLOR " 2 ULIH 30.30 - I AT l 

NEXT 
336 COLOR - 6 I'HN 10.30 AT 3 
360 FOB I = TO INT ' PU ■ 390:' 

COLOR - 3 ULIH 30.30 - I AT 3 

NEXT 
364 IF CI ■ THEN CI " 1 
363 HTAB 7 UTAE 17 INUERSE PRIM' 

niDl iFf.'Cl » 3 > - 2.3> NORMAL 

370 HTAB 9 UTAE 19 INVERSE IF S 

< 10 THEN PRINT "009". 

371 IF S ! 100 AND S > ■ 10 THEN 
PRINT -00" 

372 IF S < 10O0 AND S > - 144 THEN 
PRINT "B«; 

574 PRINT S' NORMAL 

373 HTAB 37 UTA| 13 PRINT "PUIS" 
HTAB 37 UTAE 14 INVERSE IF PU 

< 14 THEN PRINT -844" 

376 IF PU ! 100 AMD PU ) ■ 10 ThEH 
PRINT -09" 

377 IF PU < 1080 AND P'J > • 194 
THEN PRINT "4"; 

378 PRINT PU NORMAL 

300 IF PE - 1 AND P ! -10 THEN 




1329 HTAB 1 »TAE [3 IMPUT "UOTRE MON 
»".N« 

1330 HTAE 1 UTAB 24 Input "NOT-CLE P"] 
|JR AUTO- DESTRUCTION "/MO I 

1340 HOdE hF„e 1 UTftl 3 RfflNT "CAP: 

TAINE "N* PRINT "WdtCI UOTRE MISSION 

:359 PRINT PPINT ;■■-,-; DE 1 ":; DE'RjIPE 
-ea" bateau-;' print 'CNnenis ■ 

PRINT FFInT ■ l Pi)ijR :£i_„. i.JUS DtSPOi 



PRINT 



: .-: PogcPEZ 



HTAB 16 UTAB 18 PRINT "PERISCOPE" 
GOTO 399 
383 COLOR - 6 HLIN 8.26 AT 34 

HLIN 8.26 AT 33 
390 COLOR ■ '« IF BA ; - 4 THEN 23430 



393 IF AIR < 14 THEN HOME 


HTAB 1 


UTAB 21 PRINT "EQUIPAGE A 


iPHixie. _ 


t GOSUB 740 GOTO 23000 




399 RETURN 




680 REM SONAR 




643 FOR J " 4 TO 15 HTAB 6 


UTAB J 


PRINT SPC 30 J NEXT 




646 IF D(?> - I THEN PE - I 


RETURN 


647 HCOLOP > 3 HPLOT 33.23 


TO 244,23 


TO 244.119 TO 35.119 TO 35.23 




689 IF KS} ■ I AND PHD < 1 ) 


1 9 


THEH HOME HTAB 1 UTAB 


!£■ 


PPINT -GENEPATEUB ENDOMHAGE" 


GOSUB 700 HQHE RETURN 




610 FOR I • - 4 TO 4 FOR J 




- 4 TO 4^ IF XC + I f 1 OR 


XC 


* I > 44 THEN 694 




620 IF YC * J ■ I OR YC * J 




THEN 680 




634 X? ■ XC * I ■ (7 ' YC + J 




640 [F T(X7,Y7> « 4 THEN 690 




630 IF T(X7,Y7> * I OR TiX7. 


7) 


■ 3 OR UX7.Y7; > 4 THEN HTAB 29 


* I UTAB 19 • J PRINT "* 


POKE 7-: 


.24 POKE 769.19 CALL 779 




668 IF T(X7.Y7> * 2 THEN HT 


B 20 


+ I UTAB 19 + J INUERSE 


PRINT " 


NORRAL 




679 HTAB 24 l.'TAE 14 PRINT 




684 NEXT J 




690 NEXT I 




695 RETURN 





740 REH CONSTANTS DE TEMPS 

719 FOR G • I Td 2800 N£:<T 

724 RETURN 

840 RETt CONVERSION ENERGIE 

810 PRINT "U0ULE2-U0US CONUEPTIR DE L'E 

NEPGIE 7-(i GET P» POKE 768.150 

POKE 769.20 CALL 770 INUERSE 

PRINT R» NOPHAL 

829 IF P« ■ "O- THEN 639 
930 RETURN 

830 IF FU < "-9 THEN HONE PRINT "CO 
NUERSION IMPOSSIBLE" GOSUB 749 

HONE RETURN 
835 PBINT "QUAHTITE DISPOMElE *FU 

INPUT "OUANTITE A CONUEPTIR " F3 
864 IF F3 > FU THEN PRINT "IL NE PEiTE 

QUE "FU" LITRES " GOSUB 788 GOTO 833 
874 FU - FiJ - F3 PU » PU « FJ i 2 

PRINT "CONVERSION EFFECT'JEE " 

PPINT "PUISSANCE CISPGNIBLE "P'J 

GOSUB 748 HOME GOSUB 500 RETURN 
1804 REM DESSIN EC RAN 
1014 COLOR = 6 
1424 FOP I =■ 4 TO 5 HLIN 4.39 AT I 

NEXT 
1838 FOP I - TO 4 ULIN 6.29 A^ I 

WLIN 6.29 AT I -. 35 NEXT 
1049 FOR I - 30 TO 39 HLIN 0.39 

AT I NEXT 
I960 HTAB 2' UTAB 2 PRINT ■*■ 

HTAB 4 UTAE 2 PRINT "M" HThE 7 

UTAB 2 PRINT "CONDITION" HTAI 17 

UTAB 2 PBINT " " 



HTAB £3 ■■■-•. 2 PRINT 


"COORD" 


HTAB 33 UTAE 2 PRINT ". ' 


HTmE 2 


UTAB 3 PPINT "I" HTaJ 4 


utab : 


PBINT "0" 





TO 244. 119 TO 35. i: 
110 HTAB 2 UTAI ; 
UThE 19 



1120 



HTAE 



TAI 



10 PPINT -Mis 



PPINT "SCOPE 



AE 16 



HTAE 37 UTAE 19 
1199 RETURN 
1204 REM 

1210 DIM Ti 4g 28 -C 
GY(14> 

1213 PCt:E 203S ■ 124 
1220 6* 1 - • - fc- 



1240 RESTORE 



e les pleins 

"Rations euEntuElles - 

1384 PRINT PRINT "ftCCEPTEZ-WOUS UOTRc 

MISSION, " PRINT "CAPITA INE "Nt" 

GET si poi E 764.154 POKE 769 £0 

CALL 770 IF Pi « -0" THEN HOHE 

GOSUB 15080 RETURN 
1394 IF Rl I ;. "0" AND Pf ■ > "N" 

THEN 1389 
1480 HOME HTAB 1 UTAE 14 IMPUT "NO" 
ERE DE BATEAUX '10-30> " ; BA 
1414 IF BA I 10 OP EA > 30 ThEh 1490 
1424 HTAB 1 UTAB 15 INPUT "NOnBB£ DE 
BASES <3 MAX i -:E IF E : 1 OP E 

'/ 3 THEN 1428 
1438 HOME GOSUB 15000 RETURN 
2909 REM COMMANDE PERISCOPE 
2981 FH ■ 9 
2882 FOB Al - - 4 TO 4 FOR A2 

■ - 4 TO 4 IF XC * Al ■ 1 OR C 

+ Al !> 48 THEN £006 
2443 IF YC * A2 : 1 OP YC * A2 ' 20 

THEN 2443 
2994 IF T. XC ♦ Al.YC * A2 > ■ 4 THEN FH 

2993 NEXT A2 
2896 NEXT Al 
2889 IF D<8> ■ 1 THEN POKE 768.2+0 

POKE 769.20^ CALL 770 INUERSE 

HTAB 1 UTAB ZZ PRINT "PERISCOPE END 
OMMAGE" GOSUE 790 NORMAL ' HOME 
2814 IF PE ■ I THEN FOR J --+ TO 15 

HTAB € UTAB J' PRINT SPC' 30:' 

NEXT 
2024 IF > ■ 10 OP PE > THEN FOP J 

- 4 TO 13 HTAB 6 UTAB J PRINT 

SPC' 34' NEXT GOSUE 604 RETURN 
2425 HCOLOR - 3 HPlOT 35,23 TO 244.2; 

TO 244.119 TO 35.119 TO 33.23 
2430 HCOLOR * 3 HPLOT 137. 108 

TO 137,118 HPLOT 127 112 TO 127 118 
HPLOT 147,112 TO 147.118 HPLOT 117,112 
TO 117,118 HPLOT 137.112 TO 137 118 

HPLOT 107.112 TO 107.118 HPLOT 167.1 
12 TO 167 118 

2032 HPLOT 132.113 TO 132.116 HPLOT l» 
2.113 TO 142.118 HPLOT 122.115 TO 122.: 
18 HPLOT 132.115 TO 132-118 HPLOT 112 
113 TO 112 llfl HPLOT 162-113 TO 162 11*: 

2834 HCOLOP =■ 3 HPLOT 137.24 TO 137,3 
4 HPLOT 127.24 TO 127.39 HPlOT 147,24 
TO 147 30 HPLOT 117.24 TO 117,30 

HPLOT. 137. 24 TO 137.30 HPLOT 107-24 
TO 187. 30 HPLOT 167. £4 TO 167. T0 
2936 HPLOT 132 24 To 132,27 HPLOT \*Z 
24 TO 142.27 HPLOT 122,24 TO 122 27 

HPLOT 152.24 TO 132-27 HPLOT 112.24 
TO 112.27 HPLOT 162-24 TO 162.27 

2949 IF B* i .• "P" THE" £444 

2950 HOME HTAB 1 UTfiB 21 PRINT "DIR 
ECTION il-e^" GET B»: POKE 768 150 

POKE 769.20 CALL 778 INUERSE 
PRINT B» NORMAL 
2953 03 ' 



i DI ' 



f K*> 



2070 IF DI - I OR DI ■ 8 THEN DI 

* E3 HOME RETURN 
2075 GOSUE 2080 GOTO 2050 
2088 HTAE 6 UTAB S PRINT SPC 30) 

IF PE » 1 AND P ■ - 19 THEN 

HTAB 16 UTAB 18 PBINT "PERISCOPE" 
'HTAI 19 UTAB 17 INUERSE ' PBINT 

HIDX (F1..DI * 1> - 2.3> NORMAL 
2483 HTAB 6 UTAB 9 PRINT " 
r. HCOLOP - 3 

HPLOT 35.2; TO 244.23 TO 244. 119 

TO 35.119 TO 35.23 
2099 ON DI GOTO 2104. 2150- 2258. 2300. i- 
9.2450.2334.2699 
2499 REM DIRECTION NOBD 
2198 :& ■ 4 Z • 1 GOTO 2124 
2119 2A = ZA - l 2 = 1 : IF ZA : 1 

THEN RETURN 
£128 IF YC - ZA ! 1 THEN 2119 
2134 1 



to ; 



xc • 



* I ;■ 40 THEN GOSUE 2960 GOTO 2140 
2133 XI ■ XC + I GOSUB 2900 
2140 NEXT I GOTO 2110 
2149 PEN DIRECTION NOFD-EST 
2138 ZA - 4 Z ■ 1 GOTO 2178 
2169 ZA • ZA - l Z = 1 If Id < 1 

THEN RETURN 
2178 IF YC - ZA : 1 THEN 2218 
£184 VI - VC - ZA FOP I - 1 TO Z- 

IF XC ♦ I 40 THEH GOSUE 2968 

GOTO 2299 
2190 XI - XC • I GOSUB 2900 

2209 NEXT I 

2210 IF KC • ZA 1 44 THEN 2164 
2220 XI i XC - ZA FOR I = - ■ Za 

- 1 ■> TO 9 [F YC • I ( 1 T.-E" 

GOSUI 2960 GOTO 2249 
22-39 Yl - YC • I GOSUI Z3HH 
2240 NEXT I GOTO 2160 
2243 GOSUE 320 
2249 PEH DIRECTION EST 

GOTO 2270 



2268 ; 



1 z 



if : 



THEN 


RETURN 






2279 IF 


XC * ZA 


> 40 THEN 2260 


£284 XI 


XC ■ 2- 


FOB 




- 1 :■ 


ro Za if 


VC * 


! 1 OP V 


* I V 


24 THEN 


GOSUE 


2969 GOT 


£283 VI 




GOSUE 


2940 


2294 NE 


IT I GOT 


3 2269 




2299 R£H DIRECT 


ION SUB-EST 


2394 ZA 


■ 4 Z = 


GOTO 


2320 


2310 2A 




Z * I 


IF ZA : 1 


THEN 


RETURN 






2320 IF 




, 40 THEN 1 2364 


2334 XI 




FOR 


- 1 TO Z 


IF vc 




4 THEN 


GOSUE 29 


GOTO 


:339 







2364 IF VC * Za ;■ ZO THEN 23H 
2370 VI - YC - Zs FOB I - < £h 
TO STEP - 1 IF KC + I : 
Then SOSUI 2964 GOTO 2390 
£344 xi - xc . I GOSUB 2944 
2394 NEXT I GOTO 2319 
£399 REM DIRECTION SUD 
2499 ZA « 4 Z » 1 GOT'] 2420 



1 Z 1 



IF 



THEN RETURN 
2428 IF YC * ZA J 29 THEN 2410 
2434 Yl - VC • ZA FOR I • 1 ZA - l ;■ 

TO - 2A STEP - 1 IF XC - I 

f 1 OP XC * I > 48 THEN GOSUB 2964 
GOTO £440 

2433 XI - XC * I GOSUB 2909 
2444 NEXT I GOTO 2419 
2444 REM DIRECTION SUD-OUEST 
2438 ZA • 4 Z ■ 1 GOTO 2470 
2469 ZA j Za - 1 2 - I IF 2A ■■ I 

THEN RETURN 
2479 IF YC • Za 20 THEN 2514 
2444 Yl • VC * ZA FOR I - - 1 TO 

- ZA STEP - 1 IF XC * I ■ I 
THEN GOSUB 2969 GOTO 2599 

2499 XI - XC « I GOSUB 2904 

2508 NEXT I 

2514 IF XC - ZA ! 1 THEN 2464 

2324 XI ■ XC - ZA FOR I - ( ZA - 1) 
TO 4 STEP - 1 IF YC * I 20 
THEH GOSUE 2964 GOTO 2549 

2530 Yl * YC - I GOSUB 2904 

2344 HEXT I GOTO 2460 

2549 REM DIRECTION QUEST 

£334 ZA - 4 Z - I GOTO 2378 

2364 ZA - ZA - 1 Z > 1 IF ZA < 1 
THEN RETURN 

£578 IP XC - ZA : 1 THEN 2560 

2384 XI - XC - ZA FOR I ■ < ZA - I ;< 
TO - ZA STEP - I IF YC + I 
< 1 OB VC * I :■ 20 THEN GOSUE 2969 

GOTO 2399 

2383 Yl ■ YC • I GOSUB ZS99 

2398 NEXT I GOTO 2560 

2599 B.EH DIRECTION NOR D- QUEST 

2609 ZA > 4 2 ■ 1 GOTO Z6Z9 

2618 ZA « 2A - 1 2 * 1 IF Za t I 
THEN RETURN 

2629 IF XC - ZA ; 1 THEN 2660 
£630 XI ■ XC - ZA FOR I " - I TO 

- ZA STEP - 1 IF YC + I : 1 
THEH GOSUE 2960 GOTO 2650 

2644 Yl - YC ♦ I GOSUB 2909 

2630 HEXT I 

2664 IF YC - ZA s 1 THEH 2614 
2678 Yl - YC - ZA FOR I ■ - 1 ZA 

- 1> TO 4 IF XC * It 1 THEH 
GOSUB 2969 GOTO 2690 

2694 XI - XC + I GOSUB £944 

2694 NEXT I GOTO 2614 

2984 IF TiXl.Yi;. > 9 THEN £964 

2914 HTAB < 14 » IZA - 4 OP ZA - 3) 

* 11 * (ZA * 2> * 16 * 1 za • 1 :■:• 

* 2 UTAB 8 

2924 IF T(X1.Y1> » 4 THEN PPIHT G«< ZA ■ 

2930 IF T'Xl.Yi;. ■ 3 THEN PRIHT CKZA) 

2944 IF T'Xl.Yi:. » 2 THEN PRINT 1 1' ZA ■ 

2934 IF T'XIVI' * 1 THEN PRINT EI< 2A 

2964 ON ZA - 1 GOTO 2965 . 2970 . ; ■ 

2995 
2963 RETURN 

2974 2 - Z * n core £995 
2984 2 - 2 * 6 GOTO 299'; 
2994 2 ■ Z + 4 GOTO 2998 
2993 2 - Z • 3 GOTO 2998 
2998 RETURN 
3809 REM MANOEUUPES 
3082 IF Pi » 9 THEN 3007 

3483 FO = INT I RND U; t 1404' 

* 109 

3097 HTAE 1 UTAI 21 PPINT "FOND A -FO 

■ METRES, "N» GOSUE 700 HOME 

3988 IF P :• FO THEN HTAB 1 UTAE ZZ 

print "uou-; AUE2 dechire la COOUE Sua 
LE FOND,"N»" L'EAU S'ENGOUFFCE ADIEU ' 
'" GOSUB 789 HOME GOTO 23080 
3919 IF NH : 24 THEN POKE 768.154 

POKE 769.28 CALL 770 HTAE 1 

UTAE ZZ PRINT "PAS ASSEZ 'HOMMES f: 
UP CONTPOLER LES MOTEURS" GOSUB 700 

HOME X6 = Y6 * GOTO 3500 
3033 PI - 8 IF Di 195 - 1 then POKE !"6S 
.154 : FOKE 769.24 CALL 770 HTAB 1 

UTAE 22 PRINT BIGHT* iDI-l8>" EN RE 
FaRATION- GOSUB 704 HOME XS » V6 

■ 4 GOTO 3544 
3837 IF D'3> = I THEH POKE 768.158 

POKE 7tif,Z9 CALL 774 HTAE I 

UTAB 22 PRINT "HELICE EN REPARATION-! 
. ". ."DEPLACEMENT IMPOSSIBLE" GOSUE 740 

HONE X6 = 4 V6 = GOTO 3504 
3048 IF D'4/ . 1 THEN POKE 768-150 

POKE 769 29 CALL 774 HTAE 1 

UTAE 22 PRINT MID* <DJ.31.18" END J 
""AGE" GOSUE 708 HOME GOTO 3873 
3043 HOME C3 ■ CI HTAE 1 "TAB 21 

PRINT "CIRCUIT ll-e) '": GET PI 

POKE 768.150 POKE 769-20 CALL 770 
INUERSE PPINT P( NORMAL 

3433 CI » UAL 'PI> IF CI ' 1 OP CI 

:■ 9 THEN CI « C3 RETURN 
3073 RESTORE FOR I - I TO 26 

READ X6.V6 NEXT 

3484 FOP X9 1 1 TO IHT < CI * 5:' 
READ X6.V6 next -: 3 

3493 Dt - 1 - ' < 23 * RND '1 10 

IIP : ■ 59 yj 

3090 IF PU ! 100 THEN POKE 764.150 
POKE 769. 20 CALL 779 ht-e 1 
UTAE ZZ print "MANOEUVRE IMPOSSIBLE 

".."PAS ASSEZ DE PUISSANCE' GOSUB 784 

HOME GOTO 804 

3093 HOME POUE 764.2*0 PO*E 76-: 2-3 

CALL 774 

3104 HTAB 1 UTAB II PRINT -PUHShnCE 

DISPONIBLE "PU INPUT "FUISS-nCE a ijTIu 

I SEP " FI HOME 

3110 IF PI OR F: : FU THEN 3100 

3112 GOTO 3549 

3113 IF Pi 100 Then DI ■ CI P 

» PI Rl ■ I GOSUI 300 GOSUI 2400 

GOTO 3310 
3124 IF PI ■ = 1000 THEN 3200 
3134 IF RND 1 I 1 4 THEN 3200 

3144 HOME INUERSE HTAE 1 UTAE 21 
PRINT "PILE -TOMIiJuE MASSE IRITIffluE 1 ' 
."EVACUATION IMMEDIATE OU SOUS-NARtN "N* 

3130 GOSUE "00 GOTO 23489 

3244 :■: ■ XC l' ■ vc F4 . F 

3203 PK « INT . hit .Pi 104 * ■■ 



a suivre 



POURSUITE INFERNALE 



LeMonstrequi vouspoursuitadesbottesdeseptlieux. 
ce qui est tres genant pour vous qui n'eles qu'un petit 
Poucet en espadrilles ! 

N.NORMIER 



10 REFtMM«***M****** 

20 REM POUPi'JlTE 
30 »E« INFE&NfcLE 

4P REM 

50 REM POUR VIC 20 

60 REM 

78 REM PAR H. NGRHIEP. 

eu Rtti***»"*«*»*»**»» 

85 P0KE36869.248 PUf.toi*. lia 

M PRlNT'^Wi 

180 PRIltT" I INFERNrtLE 

11* P0KE52.28 P0KE56.28 CLfi 

120 FQRI*8T02I5 

130 P0KE71«8*I,PEEI 

140 NEXT 

150 F0Rl'?i«41n7A3H 

160 REHDfi 

178 POKE I, H 

180 NEXT 

190 F0RI-BT079 

298 P0KE7552*I.PEEI" 33192+U 

218 NEXT 

228 PRINT'IW REGLE3 (OrtlJ?" 

230 GETflt 

240 lFA*-"U-'lHfci. t .' U 

250 lFn*«'N'THEN4le 

260 5010*30 

270 POE 36869 , 242 

280 PRINT -n-OU's ETE5 POUKSUIVI 

290 PRlNT">tiUS NE POUVEJ WOUS 

300 PRINT" -L FFlUT EN PROF ITER 

310 PRINT"ITEPLFCEMEtlTS I 

320 PRINT"B»flPE; WL-~\ r~SW . 

330 INPUI2* 

J4B F-UKtJ«669.235 

350 PRINTS .III VOUS" 

360 PRINT'* '«£■ LE MONSTRE ' 

370 PRINT"* .111 I POINT 

360 PRINT" »]■ 10 KUINTs 

390 PRINT- J** 100 POINTS' 

400 FORF1-1TO10000 NEXT 

410 xn-21 VM-22 XT«8 VT»e KK«3 



M\C 



ao 



FrtP .N MONilRL UUJ bilit PLUS EN PLUS RWlIiE" 
ENFUIR UU EN PFtSSfiNT PAR LtS BORDb U tt-RHN. " 
POU* FA1RE LE MmXIMUM HE POINTS." 

* HROITE - GHUChE r HAUT I 6FtS" 




PT-«j V-36878 ; 



S-S2-1 S4-63-1 



S P0*£36869.25S POKEV 

J PRINT-X 

) F0R6-II075 

) fi-INT(RNB< D858S) 

) P0KE384ee*fl.7 

i PQKE768e*F>.30 

9 NEXT 

i F0R6-1T025 

t n-INKRNBil i#5B5. 

J P0KE3848e*fi,5 

S POKE7630->ft-29 

i NEXT 

) FORBulTOU 

3 B»IHT'.RN[i. 1 '*bO-. ■ 

■J POKE38400tH,b 

i P0KE7688*R.31 

) NEXT 

1 PDKE384M ' 

) P0KE7688.27 

3 POKE38400.XM.22«vri.2 

3 POK£7680*XM*22»VM.28 

3 FOftB=lTO50« NEXT 

5 Tif-eeeew" 

3 POKE 7686- XK+2MYM.32 

3 [FXM-,;aiHENXM-XM*INT'.RNIk0J*.l«MiJ G0TQ668 

) lF>;TLv:TTHENXH-XI1-INHRNIi\ti, + .l»KK> 

3 IFvroyTTMENVM«vn-IHTiftNI)^0j*.l«Kk) G0TQ6B8 

3 IFVtKVTTHENVM«W1*INT':RNDt0>*.l»Kh> 

3 IFPEEK'.rt>*3*:'.M»i£»VMj>tnH£r484a 

J P0k£384iW-XM»22»YM.2 

i P0KE?i5B9-Xn.22«VH,2e 

) POkE?680*:<W.?«VT,32 

J GETD* 

J IFDI.-S'THENXT-XT-l IF^I-.ulHEiwWI GOTO780 

< IFD*-"F"IH£HXT-XT-1 IFXT>21THEHXT-8 GOTO780 

) IF0*'"U"TMEMVT=VT-1 IFVT .oTHENVT >22 

) IFB!-"B"THENVT«YT*1 IFVT>22THENYT-8 

) IFmi28THEHKk»KK*.05 IFKK>29THENKK«28-TI*-»« 

i IFPEEK'. r68a-*XT-*22«VI<=j0TMEN980 

J IFPE£K'.7680*XTt22iVT.'-£9TM£N95e 

) iFPEEK^eaa'XT.i^tvTj.jiTHENieeo 

S P0KE38488»XT*22«VT.7 




826 P0KE?688-XT.22»VI.27 
838 GOTitoiu 

848 P0KE38488*XT.22»W,8 
830 P0fcE7688'XT.22«VT.33 
860 F0flfl-2S8TD129STEP-1 
870 P0KES4.Fi 
680 NEXT 
890 &OTO1850 

910 POKES2.240 

920 FOfifi»lT058 NEXT 

938 POKES2.0 

940 GOT 0823 

938 PT-PTM0 

960 P0KES3.248 

970 FORF1-1TO50 NEXT 

988 POKES3.0 

998 GOT 0625 

1888 PT-PT*188 

1818 POKES4.240 

1828 FORM-1TO50 NEXT 

1838 POKES4.0 

1848 50T0823 

1858 FORFI-1TO200 NEXT 

I860 POKE36869.242 

1078 PftINT"rjHERMINE'-' 

1088 PfiINT-»»CORE a .PT 

1098 IFPT>WTHENW-PT 

2888 PRINT-«-ECORD 'MIP 

2818 PRINT-«*TNCO«E >" 

2828 OETUS 

2838 IFU>-'0'THEN4ie 

2948 IFttt--N-THENPRINT"«*J REVOIR ET MERC I. 

2838 COT 02828 

18880 DWTFI23.25. 253. 188.168.36.36.102 

18810 WTH66. 126.98.235. 165. 189.36.231 

10920 DfiTRi53. 129. 189. 165, 165, 189, 129,255 

18830 D«Tfl253.195.163.153. 133.165,195,255 

10840 MTH255.153, 153.255 235. 153. 153. 255 

18838 DHTFI0, 8.0.0.8.8.8.8 

18868 WTR66. 36. 129.66.66. 129.36.66 



Suite de la page 4 



* 



SAVE-DISK 



584C 


1 10500 


07100 




^D 


DCS 


584F 


21EF37 


07110 




LD 


HL, 37EFH 


5352 


;e:f<. 


07130 




1 D 


A. 0F4H 


585b 


32EC37 


07 1 48 




LD 


C37ECH). 


3B57 


E3 


071EL0 




EX 


<SP>.HL 


5858 


E3 


07170 




Ex 


lSP>,HL 


5S59 


e:: 


07180 




F* 


(SP),HL 


585A 


E3 


07190 




EM 


lSP).HL 


585B 


0602 


07210 




LD 


B.2 


585D 


3EFF 


07220 




LD 


A. 0FFH 


585F 


CD9759 


07230 


FTR10 


CULL 


DRD 


58b: 


10FB 


07240 




DJNZ 


FTR10 


5364 


3fifi85fl 


072E0 




LD 


ft. (NSECT 


5B67 


4F 


07270 




LD 


C. ft 






07290 


% FORMflTAGE D 


UN SECTEUF 


5S68 


060C 


07310 


FTH20 


LD 


B- 12 


5360 


3EFF 


07320 


FTR30 


1 D 


ft. 0FFH 


536C 


CD9759 


07330 




CALL 


DRD 


58Bf 


10F9 


07340 




DJNZ 


FTR30 


5871 


0606 


07380 




LD 


B- 6 


5S73 


flF 


07370 




can 


A 


5874 


:D97M 


07330 


FTR40 


CALL 


DRD 


5877 


10FB 


07390 




DJN2 


FTR40 


5879 


3EFE 


07410 




LD 


fl, 0FEH 


:^87F_1 


CD9759 


07420 




CftLL 


DRG 


5B7E 


Fl 


07440 




PUP 


0^ 


587F 


F5 


07450 




PUSH 


OF 


'..san 


CD9759 


07460 




CftLL 


DRD 


5883 


flF 


07480 




XQR 


A 


58B& 


CD9759 


07490 




CQLL 


DHL 


5887 


CB41 


07510 




BIT 


0.C 


5S33 


2807 


07520 




JH 


Z.FTR50 


M.3SH 


7ft 


07530 




LD 


A.D 


S3SC 


CD9759 


07540 




ChLL 


DRO 


538F 


14 


07550 




:nc 


D 


5B9E9 


1805 


07560 




JR 


FTR60 


5892 


7B 


07570 


FTR50 


LD 


ft.E 


5893 


CD9759 


07580 




COLL 


DRD 


5898 


1C 


07590 




: mc 


E 


5897 


3E01 


07&10 


FTR60 


LD 


ft. 1 


SU39 


CD9759 


07620 




CALL 


DRD 


segc 


3EF7 


07640 




LD 


ft, 0F7H 


589E 


CD9759 


07650 




CALL 


DRD 


^8ftl 


060C 


07670 




LD 


B. 12 


5807. 


3EFF 


07680 




LD 


fl, 0FFH 


3S05 


CD9759 


07690 


FTR70 


CALL 


DRD 


58fl8 


10FB 


07700 




DJNZ 


FTR70 


SBfifi 


0606 


07720 




LD 


B. S 


58fiC 


flF 


07730 




xUP. 


R 


58PD 


CD9759 


07740 


FTR80 


CHLL 


DRQ 


58B0 


10FB 


07750 




DJNZ 


FTR80 


S8B2 


Fl 


07770 




POP 


HF 


58&T. 


F5 


077B0 




PUSH 


flF 


58B6 


FEU 


07790 




CP 


11H 


58B6 


3EFF1 


07800 




LD 


fl, 0FftH 


53E)3 


2802 


07810 




JP, 


Z. FT R9H 


58BP 


3EFB 


07B20 




LD 


A.0FBH 


58BC 


CD9759 


07830 


FTR90 


CftLL 


DRO 



1 EGRITURE 
; D'UNE PISTE 





56PF 


0600 


07850 




. D 


B.0 




5SC! 


3EE5 


07860 


FTR100 


i.D 


A, 0E5H 




58C3 


CD9759 


07870 




CALL 


DRQ 




^3C£ 


10F9 


07880 




DJNZ 


FTR100 




58C6 


3EF7 


07900 




LD 


fl, 0F7H 




58Cfl 


CD9759 


07910 




COLL 


DRQ 




58CD 


0D 


07930 




DEC 


C 




58CE 


C2&858 


07940 




JP 


NZ.FTR20 


: SECTEUR S 


580 1 


11EC37 


07960 




LD 


DE. 37ECH 




58D4 


1ft 


07970 


FTR11B 


LD 


fl, IDE) 




58D5 


CB47 


07980 




BIT 


0. fl 




=BD7 


2BHB 


B7990 




JR 


Z.FTR120 




SBD9 


ct-ar- 


08000 




Bl i 






53Db 


28F7 


03010 




JR 


Z.FTR110 




58DD 


36FF 


08020 




LD 


!HL),0FFH 




58DF 


■SF-. 


03030 




JR 


FTR110 




5SE! 


Fl 


08040 


FTR120 


POP 


RF 




53E2 


3C 


08050 




INI. 


R 




58E3 


4F 


0S060 




LD 


C. A 




53E4 


3Pfl95A 


08070 




LD 


ft, (NTRflCK) 




5SE7 


91 


08080 




SUB 


C 




5SE8 


79 


0S090 




LD 


ft.C 




58E9 


F23658 


08100 




JP 


P. COP 10 




58EC 


C9 


08110 




RET 










08140 


; ECRITURE SUR 


LE DISQUE 


110 PISTES) 


53ED 


F5 


08160 


UDBUF 


PUSH 


flF 




58EE 


21015ft 


08180 




LD 


HL, MSG7 




5BF1 


CD8753 


03190 




CALL. 


MSO 




58F4 


F3 


08210 




DI 






58F5 


3E01 


08220 




LD 


fl, 1 




58F 7 


32E037 


08230 




LD 


<37E0H>.ft 




58Ffi 


010000 


08240 




LD 


BC.0 




58FD 


CD6000 


08250 




CALL 


BOH 




59BB 


0E00 


08270 




LD 


C, ; 


PISTE 


53B2 


3E01 


08230 


WTR05 


LD 


fl, 1 




5904 


32E037 


08300 




! D 


<37E0H), A 




5987 


CDA259 


08320 




CALL 


BUSY 




590ft 


Fl 


03330 




PGP 


OF 




598B 


F5 


08340 




PUSH 


flF 




598C 


31 


08350 




ADD 


ft. C 




530D 


47 


08360 




LD 


B. A 




59BE 


3flOS5fl 


08370 




LD 


ft. <:ntrack 




591 1 


BB 


08380 




CP 


B 




5912 


FA8959 


03390 




JP 


M, WTR50 




5915 


78 


03400 




LD 


ft. 8 




5316 


32EF37 


08410 




L.D 


C37EFH). A 




5919 


3E13 


08420 




LD 


fl. SEEK 




591 B 


32EC37 


08430 




i D 


(37ECH), A 




591E 


CDA259 


08440 




CALL 


BUSY 




59S : 


3E01 


08480 




LD 


0. 1 




5323 


32E037 


08470 




LD 


' 37E0H.I . A 




5928 


0600 


08430 




LD 


B. : 


SECTEUR 


5323 


1604 


03500 




LD 


D. 4 ; 


ESSAIS 


592A 


21AA5A 


08520 


WTR10 


LD 


HL. BUFFER 


: CALCUL DE 


592D 


D5 


08530 




PUSH 


DE 


: L'ADRESSE 


592€ 


CS 


08540 




PUSH 


BC 


! DU TOMPDN 


592F 


110001 


08550 




LD 


DE. 256 




5932 


04 


08560 




INC 


B 




5933 


05 


03570 




DEC 


B 




593A 


2803 


08580 




JR 


Z. WTR14 




593 5 


19 


0B530 


WTR12 


ADD 


HL. DE 




5937 


: BF D 


03600 




DJNZ 


WTR12 




5939 


41 


08810 


WTR14 


l D 


B. C 




593fl 


U000A 


0S620 




LD 


DE. 2560 




593D 


04 


0B630 




INC 


B 




593E 


BS 


08640 




DEC 


B 




593F 


2803 


08650 




JR 


Z.UTR18 




594 1 


19 


08660 


WTR1E 


ADD 


HL.DE 




59i2 


10FD 


08670 




DJNZ 


WTR16 




r :.3aa 


Cl 


0B630 


WTH18 


POP 


BC 





Suite page 7 



CONTADET 



vL, suite du 
listing du 
N15 



4070 ZR*=INCH*(0) 

4060 GOTO 7290 

5000 HEM 

5010 REM «•**««#». 

5020 REM •»•«•••*. 

5030 TTl=0iTT2=0 

5040 GDSUB 62O0 

5070 PRINT 

5080 PRINT TRB<13> 

5030 PRINT T06( 10) 

5100 PRINT T0BU3) 

5110 PRINT 

5120 PRINT " COPITRL 
. REMB 




EDITION DE Lfi LISTE DES EMPRUNTS 



»• LISTE DES EMPRUNTS »•■» 



ORIGINE 



ler-ECH. derECM. 



ONNUI 



goop^ 



mkix.s) 



+VGL(EM*(IX 



5130 PRINT ' 
5140 PRINT 
5150 FOR IX-1 TO SX 
5160 RESTORE 7650 

5170 FOR J%*1 TO 9:RE0D TBX(JX) 
5180 PRINT TRB(TBX(JX)) ;EM*(IX, JX) 
S190 NEXT JX 

5200 TT1=TT1+VRL(EM*(IX. 1) ) 

5210 NRX=VOL (RIGHT* (EM* < 1%, 5) , 2> >- ( VOL < RIGHT* (EM* [ 1%, 
5220 N0%=(N0X»12/<V0L(EM*(IX, 7) ) ) )-l 
5230 TT2»TT2+INT(N0X#(V0L 
5240 PRINT 
5250 NEXT IX 
5260 PRINTiPRINT 

5270 PRINT "TOTAL DES CfiPITOUX EMPRUNTES >)>>>)>> " ; 
5275 PRINT USING '##»«*###. **' . TTI 

5280 PRINT "TOTRL DES REMBOURSEMENTS R EFFECTUERt " ; 
52B5 PRINT USING ' 1MMHMMHMI . •# * , TT! 
5290 PORT 
5300 GOTO 190 
6000 REM 

6010 REM »»■»»*»•••« ENRE6ISTREMENT DU FICHIER SUR DISDUE «**»•«»»»*< 
6020 REM »»•**»««»«*•*»•»*»»•*»»«<*»*»»*«»«#»»••» »*«*»»****#******4H 
6030 SX=1 

6040 FOR IX-I TO 10 
6050 FOR JX=0 TO 3 

6060 FIELD*]. 63«JX RS EX*. 10 RS EO*<JX),10 RS EB*(JX),10 RS EC*(JX: 
IX), 6 RS EF*(JX>.8 RS EG*(JX).l OS EH*(JX),a RS EI*(JX>,2 RS EJ*UX) 
6070 RSET EO*UX)=EM*(SX, 1) :LSET EB* ( JX)=EM* (SX, 2) :LSET EC*(JX)=EM* 
6080 LSET ED*(JX)=EM*(SX,4) JLSET EF* ( JX) =EMS (SX, 5) : RSET EG*(JX)=EM* 
6090 LSET EH*(JX)=EM*(SX, 7) : RSET E I * ( JX) =EM* CSX, B) : RSET EJ*(JX)=EM* 
6100 SX=5X+l:NEXT JX 
6110 PUTI1, RECORD IXiNEXT IX 
6120 GOTO 190 
6170 REM 
6180 REM »* — •«■-«•»•<•••• ECRRN OU IMPRIMONTE 7 • ««»•»»««»*»#*»*...< 

6200 PRINT 10*; 



SX.3) 
SX, 6> 
SX.9) 



6210 CURSOR 12,5:PRINT "EDITION SUR ECRRN OU SUR IMPRIMfiNTE -1 (E/I) "■ 

6220 Zfi*=>INCH*<0) 

6230 IF Zfl*«"e" OR ZR*«"E" THEN RX=0i60T0 6290 

6240 IF ZQ*=" ( " OR Zfl*«"I" THEN RX=i:GOTO 6260 

6250 GOTO 6220 

6260 PRINT Ifl*;:CURSOR 12,5:PR1NT ID*; 

6270 Zfi*-INCH*<0> 

6280 IF Zfi*=",i" OR Zfl*="N" THEN 6200 

6290 PRINT 10*; SPORT RX 

6300 RETURN 

7000 REM 

7010 REM •*••«»«•...••.•* INITIALISATION »»#*»»......... 

7020 REM ••*••■■■••••***••***••«*•***••••***«*••••****•■**••*•••#*»•*•<> 

7030 ID* = "VOTRE IMPRIMfiNTE EST-ELLE PRETE? (0/N) " 
7040 Ifi*=CHR*( 12) : IB*=CHR*(27> : IG*=CHR*(20) : IH*=CHR*< 17) 

7050 IK*=IB*+CHR*t93> : IL*= IB*+CHR* (921 : IM*=IB*+CHR* (65) : IN*= IB**CHR* (71 
7060 IP*»IB*+CHR*<78> t IO*=IB* + CHR* (76) : I R*=IB*+CHR* (72) : I5*=IB*+CHR* (73: 
7070 IU**IB*+CHR*190> s IV*=IB*+CHR* (89) : I Z*=IB*+CHR* 1112) 

7080 DIM LX<9> , CX(9) ,LGX(9) , RU*(9) , EM* (40, 9) , V<84) . PE (84) , T0< 10) , TBX(9) 
7090 DIM E0*(4) ,EB*(4) , EC* (4) , ED* 14! ,EF*(4) .EG* (4) ,EH*(4) ,EI*(4) ^EJ*(4) 
7100 RESTORE 7610 

7110 FOR IX=1 TO 9SRERD LX < IX) , CX ( IX) , LGX ( IX) , RU* ( IX) iNEXT IX 
7120 PRINT IR«; 

7130 CURSOR 12, 1QSPRINT "UN MOMENT, JE CHARGE LE FICHIER 
7140 OPEN "O. DETTE.DAT" OS 1 
71S0 SX=1 

7160 FOR IX-1 TO 10 
7170 GET£1. RECORD IX 
7180 FOR JX=0 TO Z 

7190 FIELD#1. 63«JX AS EX*. 10 OS Efi*(JX 
X),6 OS EF*(JX),S OS EG*<JX),1 RS EHS1JX 
7200 EM*(SX, l)=EO*( JX ) :EM*(SX, 2)=EB*(JX 
7210 EM*<SX,5)-EF*UX) lEM* (SX, 6) =EG* ( JX 
7220 EM*(SX,9)=EJ*(JX) 

7230 IF VOL (EM* (SX.9) 1-0 THEN SX=SX-lsGOTO 7260 
7240 5X=SX*l:NEXT JX 
7250 NEXT IX 
7260 REM 

7270 REM »»*»*»**•••»*«.**•»#*»•• MENU ##*»»•»■ 
7280 REM ******•*••••••*»»••#*»••*•••■ 

7290 PRINT lfi*; 

7300 CURSOR 5.3HPRINT IM*; IK*; IP*; "«•»••««•»•"; IL* 

7310 CURSOR 6.31SPRINT IK*; "•*" ; IN*; " MENU ";IM*;"«< 

7320 CURSOR 7,3i:PRINT IK*; '•**«•••****»; IL«; IN*; IQ* 

7340 CURSOR 10, 28IPRINT "SfilSIE OU MODIF. D'UN PRET" 

7350 CURSOR 12,28:PRINT "TRBLEfiU DES ECHEONCES ANN. " 

7360 CURSOR 14.28JPRINT "DIOGROMME DES REMB. ONNUELS" 

7370 CURSOR 16,28iPRINT "DIRGRAMME EN FRRNC5 CONSTONTS" 

7400 CURSOR 18,28iPRINT "C O M M fi N D E S FLEX" 

7410 L6X-10 

7420 IF LGX=20 THEN LGX°10 

7430 IF LGX«8 THEN LGX-22 

7440 CURSOR LGX, 18:PRINT •■)>>)>>>> ";IG*; 

7450 ZP*=INCH*(0) :ZOX=OSC(ZQ*) 

7460 IF ZOX=219 OR ZRX=248 OR Z0X=249 OR Z0X=250 OR ZRX=252 THEN PRINT I H* ; 

7470 IF ZRX=219 PND LGX=10 THEN GOTO 150 

7480 IF Z0X=219 AND LGX=I2 THEN GOSUB 2030SGOTO 2360 

7490 IF Z0X*219 AND LGXM4 THEN IM=UGOTO 3090 

7500 IF Z0X=219 OND LGX-16 THEN GOTO 3050 

7510 IF ZOX-219 OND LGX=I8 THEN CHRIN "O.LEOSOPflE" 10 

7520 IF ZOX=219 RND LGX=20 THEN GOTO 8030 

7530 IF Z0X=219 OND LGX=22 THEN 4000 

7540 IF Z0X=11 THEN CURSOR LGX, ISsPRINT 

7550 IF ZOX=10 THEN CURSOR LGX, ISsPRINT 

7600 GOTO 7450 

76IO DOTR /,, 2, 10. "MONTONT DE L'EMPRUNT", 

7620 DOTO 12. 2,6. "DOTE DU ler REMB. 

7630 DOTR 16. 2, 8, "MONTPNT DU DERN. REMB.' 

7640 DOTO 20. 2,8. "MONTRNT DES ECHEONCES", 20, 50,2, 

7650 DOTO 0,13,25.37,45,53.63,66,76 



10 AS EB«(JX),10 AS EC*(JX>,6 AS ED* ( 
8 OS EI*(JX),2 OS EJ*(JX) 
EM*(SX, 3>=EC*(JX) :£M*<SX,4)=ED*(JX) 
EM*<SX,7)*EH*<JX) !EM*(SX,8)=EI*IJX) 



: ii..». 



>, 2, 10. "ORIGINE ". 8.40, IO 
,45,6, "DOTE DU DERN. REMB. 

16,50. 1. "DUREE D' UNE ECHEOnCE 
"TOUX DE L'EMPRUNT" 



DESTINATION- 



Suite de /a page 6 



+ 



SAVE-DISK 



5945 


78 


08700 


LD 


0,B 


594G 


32EE37 


08710 


l.D 


C37EEH).0 


5949 


Dl 


08720 


PUP 


DE 


594A 


Fl 


08730 


POP 


HF 


594B 


F5 


08740 


PUSH 


OF 


594C 


D5 


08750 


PUSH 


DE 


594D 


SI 


0B760 


BOB 


R.C 


534E 


C5 


08780 


PUSH 


BC 


534F 


B1EC37 


08790 


LD 


BC.37ECH 


5932 


1 1EF37 


08B00 


LD 


DE.37EFH 


5955 


FE 1 1 


08820 


CP 


11H 


5957 


3ER9 


08830 


LD 


0, 0O9H 


5959 


2SI7I2 


08840 


JR 


Z.UTR20 


595B 


3EAB 


08850 


[ 


0, 0O8H 


595D 


02 


08860 WTR20 


LD 


( BC ) . 


S95E 


E3 


08880 


EX 


(SP).HL 


595F 


E3 


08B90 


EK 


(SP).HL 


53E0 


E3 


08900 


Ex 


(SP).HL 


5961 


E3 


08910 


EX 


iSP). ML. 


5962 


BR 


08930 WTR30 


LD 


A. (BC) 


3963 


IF 


08940 


RRHfl 




5964 


T.see 


08950 


.IP 


NC, WTR40 


5966 


tf 


08960 


RHCfl 




3967 


3BF9 


08970 


JR 


NC. WTR30 


5969 


7E 


089B0 


LD 


0. « HL ' 


5960 


12' 


08990 


LD 


(DE).fi 


596B 


23 


09000 


INC 


HL 


596C 


18F4 


09010 


JR 


WTR30 


59BE 


CI 


09020 UTR40 


POP 


BC 


596F 


Dl 


09030 


POP 


DE 


5970 


30EC37 


09040 


LD 


0. (37ECH) 


5973 


B7 


09050 


OR 





5974 


2015 


09060 


JR 


NZ, WTRERR 


5976 


L6M 


09070 


LD 


D. 4 


5978 


04 


09080 


INC 


B 


5979 


300850 


09090 


LD 


0. INSECT) 


597C 


B6 


09100 


CP 


B 


597D 


7B 


09110 


LD 


O.B 


597E 


20Afl 


09120 


JR 


NZ. WTR10 


5980 


0C 


09130 


INC 


C 


5981 


300750 


09140 


LD 


0. CLTRACK 


59B6 


B9 


09150 


CP 


C 


59B5 


79 


09160 


LD 


o-c 


59B6 


C20259 


09170 


JP 


NZ. MTR05 


5989 


Fl 


09180 WTR50 


PDF 


OF 


5980 


C9 


09190 


PL J 






598B 


15 


09210 


WTRERR 


DEC 


D 


598C 


209C 


09220 




JR 


NZ.UTR10 


598E 


215D50 


09230 




LD 


HL.MSG10 


5991 


CD8753 


09240 




CftLL 


MSD 


5994 


C39953 


09250 




JP 


SYSTEM 


5337 


08 


09280 


DRQ 


F* 


OF. AF' 


5998 


3REC37 


09290 


DROl 


LD 


0. (37ECH) 


599B 


CB4F 


09300 




BIT 


1.0 


599D 


23F2I 


09310 




JR 


Z.DRQ1 


599F 


05 


09320 




EX 


OF, OF' 


5SP.Il- 


77 


09330 




LD 


CHD.A ^^9 


5901 


C9 


09340 




RET 


(SP).HL 


S9R2 


E3 


09360 


BUSY 


E:< 


59A3 


E3 


09370 




EX 


(SP).HL 


59RA 


E3 


09380 




EX 


(SP).HL f 


5905 


E3 


09390 




EX 


(SP).HL 


5906 


3REC37 


09400 


PUG! 


UD 


0, (37ECH) 


5909 


CB47 


09410 




BIT 


0,0 


590B 


20F9 


09420 




JR 


NZ. BUS1 


590D 


C9 


09430 




RET 




59RE 


1C 


09450 


MBD2 


DEFB 


1CH 


590F 


IF 


09460 




DEE En 


1FH 


39BB 


0E 


09470 




DEFB 


0EH 


Z3bi 


53 


0948B 




DEFM 


'SAVEDISK 3.27 - 21/10/83' 


ZSCB 


m 


09490 




DEFB 


0DH 


59CC 


20 


09500 




DEFM 


' CO 1982 - B. DUPIN' 


39E2 


Bfl 


09510 




DEFB 


0OH 


59E3 


SD 


09520 




DEFB 


BDH 


59Ei> 


U 


09540 


MS03 


DEFM 


'METTRE LE DISOUE RECHfiRGER' 


5000 


M0 


09550 




DEFB 


0P.0H 


V\ 5001 


^5 


09570 


MSB7 


DEFM 


'ECRITURE SUR LE DIBQUE' 


+y) 5017 


M 


09580 




DEFB 


0O0H 


,5018 
_-J 5019 


BR 


09600 


HB08 


DEFB 


0OH 


4C 


09610 




IM CM 


'LECTURE SUR LO CASSETTE ..." 


5034 


m 


09620 




DEFB 


0O0H 


5035 


5E. 


09640 


MSG13 


DEFM 


'VOULEZ-VOUS FORMOTER CE DISDUE ? CD/N> 


505C 


Afl 


09650 




DEED 


0O0H 


505 D 


A3 


09670 


MSG10 


DEFM 


' ERREUR DISOUE EN ECRITURE' 


5A76 


BO 


09680 




DEFB 


BDH 


' 5077 


20 


09700 


COMBUF 


DEFM 




5087 


20 


09710 




DEFM 




•* 5097 


20 


09720 


MSG21 


DEFM 


* - * 


• - 509C 


53 


09730 


M5G211 


DEFM 


'XX PISTES' 


3= 50A5 


BD 


09740 




DEFB 


0DH 


50A6 


Eft 


09750 




DEFB 


BAH 


5RA7 


Sfi 


09770 


LTROCK 


DEFB 


10 \ PISTES/BLOC 


5008 


0ft 


09780 


NSECT 


DEFB 


10 \ SECTEURS/PISTE 


5 Oh 3 


27 


09790 


NTROCK 


DEFB 


39 ; NOMBRE TOT. PISTES - 1 



09810 BUFFER EQU 
09830 END 



C'EST NOUVEAU, CA VIENT DE SORTIR ! 



JEER JEER JEER HOURRA! 

LORICIELS sort des logiciels pour COMMODORE 64, an- 
nonces depuis longtemps, ils sont enfin disponibles : dans 
JEER vous etes tranquillement en train de vous ballader 
sur le sol lunaire a bordde votre Jeep, quand, des Ovnis de 
toutes les couleurs foncentsur vous pouressayerde vous 
detruire (He oui, avec COMMODORE aussi les Ovnis sont 
agressifs!).Cejeu inspire d'unlogicieltournantsurles ma- 
chines de cafe est bien connu : pour vous defend re vous 
avez deux canons laser - Un vertical et un horizontal -. un 
bouton desaut pour enjamber les crateresetun accelera- 
teur pourfuir le plus vite possible. BOUNZYest un labyrin- 
the a plusieurs niveaux. Vous devez recuperer des tresors 
en evitant les gardiens, de terribles mutants qui vou- 
draient eux aussi, vous eliminer. FORMULE 2vous empor- 
te sur un circuit automobile dans un bolide muni d'un ac- 
celerateur, d'unfreinetd'uneboitede vitesse. LORICIELS 
pour COMMODORE 64. 

LOGICIEL 45 % de matiere grasse. 

Pour une fois, il est sur et certain que le programme est 
100 % francais. Qui d'autre qu'un Francais pourrait en effet 
ecrire FROMAGE, logiciel special gourmet, qui vous ap- 
prend I'origine regionale de tel ou tel fromage, la nature de 
son lait, sa teneur en matiere grasse, la qualite de sa pate 
et meme les saisons favorables pour sa degustation et le 
vin conseille pour raccompagner. Le pain de campagne 
n'est pas fourni. LORICIELS pour ORIC. 



MICRO VIDEO RESTO 

HACHETTE ouvre un MULTISTORE A PARIS. Sur I'ancien 
emplacement du drugstore OPERA, HACHETTE-OPERA 
sera a la fois un espace commercial et un espace de loi- 
sirs. Entre deux restaurants (dont le plus grand de PARIS 
avec plus de 400 places), un foyer de television geant 
(54 ecrans branches sur des lecteurs de videodisque) et 
une boutique depresseetde livres (20. OOOtitres), on trou- 
vera les produits les plus recents en elect ronique, video et 
informatique. Ce qui nous interesse, ce sont les salles de 
reunions informatiques et les 380 metres carres consa- 
cres a la micro-informatique. Tous les materiels, les peri- 
pheriques et les logiciels commercialises aujourd'hui en 
FRANCE seront la : les portables, les familiaux, les profes- 
sionnelset meme les jeux video. Une cinquantaine demo- 
deles differents en configuration complete avec la librairie 
(200 ouvrages), les publications francaises et etrangeres 
(200 titres) et les logiciels (1000 titres). En plus, c'est 
ouvert de 10 heures a 1 heure du matin et c'est gratuit ! 
N'allez plus au cine, neregardez plus latele, c'est plus mar- 
rant chez HACHETTE-OPERA ! Ouverture le 27 Janvier. 

UBI ET ORDINOBIS a BORDEAUX 

Decidement BORDEAUX sebranche a fonds sur la micro- 
informatique : dans le cadre de la manifestation des 'As- 
sociations et rinformatique", le club ORDINOBIS presen- 
ter differents ordinateurs familiaux (Tl 99. ORIC, COM- 



MODORE. ..). Vouspourrezjoueret peut-etregagnerdes 
adhesions gratuites au club. En plus, vous aurez droit a 
des HIPPOREBUS dont les solutions paraTtront dans 
HEBDOGICIEL du 11 Fevrier. Ca se passe a BORDEAUX 
MERIADEK et c'est les 28 et 29 Janvier, 

ORIC d'UTILITE PUBLIC 

CEMEA, Centre d'Entrainement aux Methodes d'Educa- 
tion Active, association reconnue d'utilite publique, orga- 
nise un stage de sensibilisation a la micro-informatique 
sur ORIC 1 : decouverte du materiel, notions de Basic, ap- 
proche de la programmation, reflexion sur ('utilisation de 
I'informatique et la demarche d'approche utilisee. Ca se 
passe pendant les 4 week-ends de Mars, ca coute 
1.000 francs et c'est le CEMEA de PARIS, 24 avenue de 
Laumiere, PARIS 19 e qui vous renseignera. 

DDI offre au meilleur logiciel du mois un lot de 100 casset- 
tes DATA-OR vierges speciales informatiques (50 C 11 et 
50C33). 



PANIQUE DANS VOTRE VIC 20 

Un nouveau jeu de I'espace pour VIC 20 de base (3K). Les 
ovnis , Meteorites, vide spatial et canons lasers habituels 
sont au rendez-vous. La vitesse est reglable et le titre est 
VFO PANIQUE. LORICIELS pour VIC 20. B 



LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX! 



JEUX et PROGRAMMES 

pour 

I'ordinateur familial 

TEXAS INSTRUMENT 




programmes en Ti basic pour "Ti 99/4 A" 

INITIATION AU 

LANGAGE ASSEMBLEUR du 

TEXAS INSTRUMENTS 




Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peripherique ni module complementaires. Des jeux originauxet passion- 
na nts a vec couleurs, graphismeset sons: Jeux demouve men t ( Bowling, Batai He 
de I'espace, Labyrinthe, etc.). Jeux de reflexion: Dames, Pendu, Awari, Tour de 
Hanoi, Architecte, etc.). Jeux desociete (421, Goldie.Cochon, Mastermyster.Chif- 
fres et mots, etc.). 

Des programmes performants : Calcul (Factures, Paye, Byorythmes, etc.). Assis- 
tance (Tierce, Impots, Suivi de compte en Banque. etc.). 

Et aussi des Astuces pour augmenter la puissance du langage Ti-Basic : AND et 
OR. Arrondi. Alignement, HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155.00 francs francais. Disponible. 



Le tome 2 est toujours en basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux : Backgammon, Sous-marin, Trappe, 
Roulette. Casse-tete, Puzzle, Echecs, Tachitoscope, Kim, Paires, etc... De la musi- 
que a inclure dans vos programmes : Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs : Arithmetique, Calcul de 
puissance, Regions de France, entrainement a la logique informatique, etc. 
1 00 pages. Format 21 x 29,7. 1 55,00 francs francais. Disponible. 



en vente dans les fhac et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides {bataille navale, course de 
voitures. etc.), des jeux de societe (Theme astral, Drapeaux, Poker, Harmonium, 
Calculettescientifique.Ardoisemagique etc.). des utilitaires pour creer des lutins, 
fusionner des caracteres, dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Vous connaissez le Ti-Basic, vous possedez un Ti 99/4A et un module "Mini- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur : Acces a toutes les possibilites graphiques, y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande vitesse dexecution (deux minu- 
tes au lieu de deux heures trente pour un meme programme) 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables, a maftri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DIDI. 214 pages. Format 21 x 28. 195,00 francs 
francais. Disponible en francais et en anglais. 



JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 2 




Programmes en Ti BASIC pour Ti 99 4A 

JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 3 




DEMANDEZ LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET DISQUETTES. SHIFT EDITIONS, 27 rue du Gal Fo», 75008 PARIS 



Nom/Creoom I I I I I I I I I I I I I I I I I I I I I I 

Ad,.,,. I I I I 

I I I I I I I I I I II I I cod. Pcai.i I I I I I I 

v,u I I I I I I I I I I I I 



TOME 1 D 155 F 
TOME 2 □ 155 F 



TOME 3 □ 155 F 

ASSEMBLEUR D 195 F 



CONTRE REMBOURSEMENT FRANCE 
CONTRE REMBOURSEMENT ETRANGER 



+ 20 F D 
+ 30 F D 



REGLEMENT JOINT. . . 
cheque D ccp D 



^QjOjF 



DOMINOS„ a6 oO 



6«e;G0TQ 260 
652: IF H=XLET May. 
RETURN 



"o i ?3 . b. 



_l_b_ 1-1. L-l. 



.—._... ....... 



Un jeu vieux comme le monde sur une machine de 
20 en,e siecle : saurez-vous battre votre PC 1500 aux domi- 
nos ? 

Elie MADEUF 

Mode d'emploi : 

2 facons de jouersuivant la reponsea la question "je distribue (O/N) ?'' 
A) "O" puis "RETURN" 

Le PC affiche ses 7 dominos et les votres (que vous notez). "RETURN", 
puis "veux-tucommencer (O/N)?" Si "RETURN" "MOI "affichagegra- 
phique qui va au centre. "TOl" Faire X.Y RETURN, le domino s'ajouteau 
premier. Seuls restent les 2 bouts de la ligne jouee. Si le PC ne peut 
jouer, il va a la peche, affiche ce qu'il sort ou continue de pecher 
Pour pecher. faites 9 



^l 



2tA-Z— 99, T=0: IF 

■ /:let o-h.f 

605U8 230 

2?8-0*t, P = H:Q0SUB 

280:0010 3?9 

. -.' R ft(0+13):F0R 

u=ero ^;R^iMt 



ft'.*: IF I 



lEN )60 
298:U*-tBi 

U>-tNr etu)>: 

IF «<k-)(?fHEN 

328 

3081 If- S>=,'Li I U'l 

e+s 

Jia.'GOTO 340 

• ',>ri:U--- f |F 5- !l_ET 



CCURSC* 8 PRINT 

Cursor a; input 

"To. ■"■;U:H' 

INT u. T^ietdJ- 

X): IF ft = "-HH0 

UI --9tH E» 523 
I: IF T^i'O'OND U 

=3l£T 1 = 1 : 

CUB5CK 0:PR1NT 
■■:G05JB 

J20:GOfO 520 
l;S»B-UO(X)=fi(X 

)*|:IF XOYLC 

C IF »<i-h-; =x*Y 

♦X--QN0 *<.>y 

cursor b:prjm 

;i - - B ;;.- ■ 
"En. »"iH: t«Mi 
COSuB 980 
l:&0W8 »80; IF f 
LET F^0:GOIO 5 



RETURN 



: "X! 



690: PR In 



!8-B*1iS0T0 
410 

280.-IF "let ■-",-.. 
71»:C*(8J*A«(X)+A* 

(Y> 
?20: IF FIHEN 220-F 

*20 
733; IF 6»l9)=-" , LEI 

B*(8}<:A(*C*(B) 

• as, ai=x, a2=f. 

GOSUB ?9a;GDT0 

sib 

7J3:3*^rtlO« <BH0) 
, 3, HI- If 8*;Q 
KXJLE1 nj*Yl 
GOSUB B20:SDTC 
830 



J0:CLEfiR :Dln OH 
6>,flU6),Bl2a) 
,B»<I)»50,C*<8 
)*32;R0ND0n 

28:0» = , '?F",0*O)^ 
414H 



15)=2.3, £ 



:&) = 



I ■'.«♦( I 

1)43411 

I0:O»<2)^' 

141614 



414341. 



1(17)^2.5 
):B<18)^2.6,9( !9 
) = 3. 3, B128) = 3- 
«,8<2I)=3.5.8( 
22;=3.6, BC23)= 
4.4,BC24) = 4.5 
1:8(25)^4.6, 8<26 
1=3.5, 9(27)=5. 

6, bi?b;=6.6; 



GPRINT 0*»Q*(X 
)*O»tY>+0»: 
RETURN 
18«tAlX)*fKX) + l.l. 
IF XOYLET fl(Y 



BtU-!B>O0L£I 

U=50 
340; K=0: IF P=0OR P 

=UI_Et K=I 
350:G=JNT «IU)-*U* 

INT fi<P)-10*Cfi 

(P1-1NI A(P))- 



19>:( 



'W.l 



• l0)--< 



;x+ii 



14341484161 
41 H ,ft*(4^-416 
3414141G34I 
l:ft*(5)'"4163414 
9416341", A*<6) 
="416341634163 
41 



rm ■■ pa 
misotq lae 

?e:B<l >--0, BI2) = 1, 
BO)--2, B(4) = 3, 
8(5) = 4,9<6>=5, 
B<7)»fiil 



PRIH 

> . - 



no ?■■ 



,B!3> = 
l) = l.3 



. ,\ li 



:G0T0 168 
150: fop U-1TQ 7: 

PRINT Uj: INPUT 



U-KJsIP FTHEN 
178: IF LCURS3R 0: 



210TNEXT U; IF ft** 

0-RETURN 
228;UAJT I 0B: INPUT 

nctr (0/>?"iZ» 
:CLS : IF 2«="0 
"THEN 24B 
230;ELS ;2^-9,P-7: 
FOR O=0TO 6: 
GOSUB 288= NEXT 
0:H=X, I=YiEOT0 
398 



■:IF ► 



QNO XOYONO E< 
8G0SLIB 880 
420:CUR5OR 0:PRINT 
■'noi:"i :GPRiNT 
fi».Al<X)+0*(Y> 
*A*i '.GOSUB 700 

*3B:F*0i IF a-euoiT 

: CURSOR 0: 



; IF C = 80NQ J^l 

THEN B70 
: IF C=0THEN 268 



b6a:FQfi ^!0TO 16: 
a(0J--|NT 0(0): 
NEXT D 

5?e:ft(H*ie)*lNT oi 

H-IB)-. 1: IF H< 
>ILET 0(1*10)= 
INT At |*IB>*. I 

5Ba:6O"0 44B 

530: IF C--0LET J = j: 

GOTO 448 
688:CURS0R 8:°R1nT 

Y*="0"LET L=l: 
GOSUB I20:GDTO 
628 

610;CURSOR 8: INPUT 
"no. ?'iu:x= 
INT U, V^]0»CU- 

620:a = O*l, C^C-'l, AC 



nii IF B*' CM ■ . I 

A] ^x:6DIC 84B 

■ : 1 

,B*»nlDI CB»i 

>, i,. ■;.. li ,-■ 
■ 
... '_ B58 

7?0:IF B*^Ot<Y)LL f 
A2--X: GOSUB 823 
:G0TO 860 

780:GOTO 690 

."30:UQ1T 130. 
CURSOR 12: 
8PR1NI B*(e);: 
CURSOR 20: 
GPR1NT B*C]>;: 



900: RETURN 
818:B*(J )^R16HT* 
Bt(0). IB). Bill 



- .1 ■ ■■■!. 

RE T URN 

830:f3*lB) = C*(3)-Bl 
:GOTO 738 

: ■■.■■ "I .' ..I ■ 1 .' 

*A«*8*:60T0 79 



B50:B»C 



860:B*U>=B**CI 
:GOTO 790 

870:UA1T :CLS : 
PAUSE "Par-I 



RlNT ' 
ill 



•j a | " 



LE LOGICIEL 

DE LA SEMAINE 

Hubert I'huluberlu 

sur ORIC 1 



Q'BERT vous connaissez ? Le pe- 
til personnage qui ressemble 

etrangement a un pois sauteur 
mexicain et qui se deplace sur 
une pyramide avec comme seul 
souci de marquerson territoire (et 
le plus de points possibles par la 
meme occasion), en evitant soi- 
gneusement les differents mons- 
tres a sapoursuite? Bravo! vous y 
etes ! He bien, ce fameux jeu de 
cafe est desormais disponible sur 
I'ORIC 1. grace a la societe LORI- 
CIEL. sous le pseudonyme de 
HU'BERT HU'BERT est legere- 
menl handicape : II ne peut se de- 
placer qu'ensuivant une diagona- 
le de la pyramide. a I'aide de qua- 
tre touches du clavier. II vous fau- 
dra done acquerir rapidement la 
dexterite dun pianiste et les 
reflexes dun boxeur Le jeu, tres 
simple, consiste a colorier tous 
les cubes. Un cube change de 
couleur lorsque HU'BERT se po- 
se dessus . Au debut , il regne 
enmaitreabsoluetincontestesur 
la pyramide. mais tres vite des 
creatures plus ou moins redouta- 
bles apparaissent 
SLICK, petit bonhomme vert 
comme unmartien.et SAM, le fan- 
tome phallo. qui s'ingenient a 
detruire le travail de HU'BERT lis 
redonnent au cube quils tou- 
chent sa couteur initiate. C'est 
plutol penible. mais ils sont inof- 
fensifs UGC. indestructible, est 
un tueur qui a visiblement un 
compte a regler avec HU'BERT 
qu'il pourchasse sans repit. Aevi- 



ter absolument ! COILX serpent de 
son etat, garde en reserve (char- 
mante attention !) un venin d'ex- 
cellente qualite destine a HU'- 
BERT (le veinard !). Seul remede : 
manger une cerise qui vous don- 
nera assez d'energie. de courage 
et d'appetit pour vous offrir un 
steack de serpent, avec ambian- 
ce musicale. Attention, des que la 
musique s'arr^te, les roles ris- 
quent fort d'etre inverses . 
HU'BERT a droit, de plus, a une 
bille rouge et a une bille violette. 
La bille rouge glisse le long de la 
pyramide et peut ecraser le preux 
HU'BERT La bille violette n'est 
pas dangereuse, mais peut don- 
ner naissance aux creatures ci- 
tees plus haut. Alors, ne peidez 
pas la boule (rouge ou violette), 
tout au moins de vue ! 

Vous ne pourrez pas dire qu'HEB- 
DOGICIELnevousapasprevenu! 
Le jeu se deroule en quatre pha- 
ses. Lors du troisieme tableau, il 
faut sauter deux fois sur un cube 
pourle faire changer de couleuret 
lors du quatrieme. trois fois. 
II est possible de choisir le niveau 
du jeu. HU'BERT est un bon jeu 
d'arcades bien adapte sur le plan 
graphisme (perspective, cou- 
leurs)etsons.tresagreablesauti- 
liser. 

Alors attaquez-vous au HU*- 
BERT'scube B 




SOLUTION DE LHIPPOREBUS: 



RANDORIIE 

10 FOR 1=1 TO 9 

20 READ J 

30 PRINT CHR«(I)i 

40 NEXT [ 

SO END 

60 DATA 82,65, 78,68,79,77, 73,90, 69, 




Suite de la page 1 



ORIC FRANCE prevoit, ni plus ni 
moins. de doubler la vente des con- 
soles (100 OOO en 64 centre 50.000 
en 83). de multiplier par 6 la vente 
des imprimantes (20.000 en 84 con- 
tre 3 000 en 83) et d'atteindre le chif- 
fre de 20000 unites de disquettes en 
1984, 

En ce qui concerne le logiciel. ORIC 
FRANCE realise et distribue ses pro- 
pres logiciels par I'intermediaire de la 
societe "PRODICEL" (a ne pas con- 
fondre avec "LORICIEL", I'autre distri- 
butee specialiste de I'ORIC). PRO- 
DICIEL prevoit la vente de 500.000 
logiciels (contre 50.000 en 1983). 

Des chiffres qui laissent reveur, d'au- 
tant plus que la prevision de 100.000 
consoles pour 1984 ne tient pas 
compte de I'operation d'echange du 
materiel Alors, realisme ou opti- 
misme ? 

Une affaire, en tout cas. a suivre de 
pres... 



LOGICIELS CANON 



Explorez les etonnantes possibilites de votre CANON 
X-07 avec les quelques 40 programmes reunts dans cet 
ouvrage. Des programmes performants qui (onctionnent 
sur le X-07 de base (8 Ko) calculs scientiliques : opera- 
tions sur les matrices, conversion de coordonnees, 
racmes de polynomes, integration, interpolation, etc. Des 
utilitaires: gestion de compte en banque. histogramme, 
impot. hard copy, trace de courbes. biorythmes, etc. Des 
jeux: loto. poker, ardoise magique, un peu d'EAO, un 
super jeu d'aventures : le Tresor du Galion et trois "gros" 
programmes qui necessitent une carte dextension 4 K ; 
Astral, Tierce et Surfaces et Volumes. 



Canon 

DINATEUR INDIVIDUEL 



JEUX 
ET 

PROGRAMMES 



? 






r T j7iTT 7 rni ' irnTTTL 1 


[ jrl I h-Tl 1 1 1 1 1 1 1 II 1 1 1 1 1 1 ' ' ' J 




DESRE ---] 




t : 2. INTEGRATION 






t:::;uoTRE choix < 1/2^3 XIL? :::q 


l— mi II II III II II Ml Ml I —J 



UN LIVRE S1GNE SHIFT EDITIONS ! en vente Chez les 
distrlbuteurs CANON el par correspondance. 



><; 



BON DE COMMANDS A DECOUPER OU RECOPIER 

A ENVOYER A 
SHIFT EDITIONS : 27. rue du GAL-FOY. 75008 PARIS 



NonvPrant 



REGLEMENT JOINT 
cheque a CCP D 



- France + 20 F D. etranger - 
,0 F 



DATE: 

SIGNATURE 



GARACTERISTIQUES TECHNIQUES 

UNITE CENTRALE : MICROPROCESSEUR 6502A 

DE 16 K OCTETS A 48 K OCTETS UTILISATEUR 

INTERPRETEUR BASIC. 

CLAVIER ERGONOMIOUE COMPRENANT : 57 TOUCHES ANTI RE- 
BOND MAJUSCULES-MINUSCULES 

ECRAN : 

- UTILISATION DU RECEPTEUR DE TELEVISION COULEUR AVEC 
BRANCHEMENT PERITEL.SECAMOUPAL.UHFOUNOIRETBLANC 
CANAL 36 A LA DEMANDE 

- UTILISATION EGALEMENT SUR MONITEUR VIDEO VERT ET COU- 
LEUR 

- AFFICHAGE TEXTE : 28 LIGNES DE 40 CARACTERES. 

- MODE GRAPHIOUE : 200 CARACTERES PAR 240 CARACTERES 
CARACTERES ASCII + 80 CARACTERES DEFINISSABLES PAR LUTI- 
USATEUR AFFICHAGE GRAPHIOUE TRES SOUPLE AVEC 8 COU- 
LEURS EN AVANT-PLAN. 8 COULEURS EN ARRIERE-PLAN ET LE 
MODE CLIGNOTANT. CODE INVERSION VIDEO PARALLELE EN MO- 
DE GRAPHIQUE ET EN MODE TEXTE. 

SONORISATION 

- HAUT-PARLEUR ET AMPLIFICATEUR INTEGRE. 

- SORTIE SONORE PROGRAMMABLE POUR SYNTHETISEUR 

- DIVERS INSTRUMENTS MUSICAUX 

- POSSIBILITE DE CONNECTION A UNE CHAINE HIFI 

IMPRIMANTE 

IMPRIMANTE PARALLELE CENTRONICS 

POSSIBILITE DE CONNEXION PRATIOUEMENT A N'IMPORTE QUEL 

TYPE D'IMPRIMANTE 

INTERFACE CASSETTE 

CONNEXION PAR PRISE DIN (INTERFACE PERMETTANT LA SAUVE- 
GARDE DES DONNEES, BLOCS MEMOIRE. ET AFFICHAGE ECRAN) 



PETITES ANNONCES 
GRATUITES 



ACHETE pour Tl 99/4A cordon K7 
+ K7 URGENT Merci Monsieur 
PICARD 155 Domaine des Baux 
83520 ROQUEBRUNE S/AR- 
GENS Tel. (94)45 70.86 

A VENDRE HP 41 CV module X 
fonctions, 2 modules X memoire, 
module Time + module HP IL + 
lecteur de cartes + lecteur opti- 
que + Ensemble de 100 cartes 
magnetiques avec 2 etuis + Mo- 
dule circuit Analysis + lecteur 
cassettes digitales + Imprimante 
CGP115 (RADIO SHACK) + Divers 
livres amencains Cfiaque ele- 
ment est offert avec 20 % sur le 
prix neul FNAC. Livraison possi- 
ble sur PARIS Faire offres a Denis 
DEMAUGLEResidencel'Emerau- 
de Boulevard Pagnol 06700 
SAINT LAURENT DU VAR. 

Sur NANCY uniquement : VENDS 
ZX8ll6KequipeBIPSonoreavec 
carte Auto Repeat (a monter) + 
Cassette "Pilotez votre ZX 81" 
avec le livre + conquete des jeux 
(35 prg) + divers. Le tout 500 F 
Emballage origine assure mise en 
route, VENDS MACHINE A CAL 
CULER 12Chiff res lumineux (vert) 
imprimante a memoire (bureau, 
magasin. > : 500 F EHRHARDT 
Bernard 60, rue Vaynnge 54000 
NANCY Tel (8)33514 82. 

VENDS pour Tl 99/4A logiciel 
"GESTION DE FICHIERS" 300 F 
Marx ROUSSELLE 2. Place des 
Vernes 77500 CHELLES Tel 
008 87 87 



ACHETE pour Tl 99/4A module 
extended Basic et mini-memoire. 
Joel HUAULME 17. rue des com- 
battants d'AFN 53600 EVRON Tel 
(43)9817.09. 

TRS. Je RECHERCHE toutes sor- 
tes d'extensions pour le Modele 1 
(ext. memoire Drives, Ext. memoi- 
re etc. .. RECHERCHE aussi le boi- 
tier du clavier d'un TRS usage 
Ecrire a Olivier NEROT 4, rue 
Duguay Trouin 29200 BREST Tel 
(98)44.71.76. 

ACHETE pour Tt 99/4A mini-m6- 
moire J.J. MERCIER Quartier de 
lisle 69470 COURS 

VENDS Ordinateur VIDEOPAC 
C 52 PHILIPS (Mars 80) avec car- 
touches etat impeccable ; peu 
servi Philippe WALCZAK 23, rou- 
te d'Oisy 59220 DENAIN Tel. (20) 
43.98.31. 

VENDS PC 1251 + CE 125 +.4 K7 
vierges + la decouverte du PC 
1251 + vanations pour PC 1211 + 
20 programmes divers + papier 
thermique. Valeur 3258 F cede 
2.350 F (garantie 8 mois) Franck 
VAN HULLEBUSCH112rue J. Mou- 
lin 59134 FOURNES EN WEPPES 
Tel (20)50 28.08. 

VENDS Tl 99/4A + manettes de 
jeux + cordon K7 + ext. BASIC + 
Boitier ext + Ext 32 K Le tout 
5.300 F (encore sous garantie) 
Tel (21) 66.88.38. 62138 HAIS- 
NES. 



FICHIER D'ADRESSE 



\J/ suite du 
listing du 
N15 




SADRESS 



,'ViLtE 



iVCOK POST, 



II t -- j:i = !5,XJ ■ I 

20 FOB L * I TO I: READ MIL): NEXT L 

21 DATA -NON iVFUfflON :" 

', 'MATERIEL :' 

22 HONE : MINT 'FICHIER D'AORESSES': HTAB 18: VTAB I: MINT ' SUPPRESSION*) MINT ' 

*: POM 34,3 

24 HOME 

25 VTAB 4: PRINT Bill): PRINT : PREMT Bt(2>: PRINT ; PRINT M<3): MINT . MINT Bt(4>! PRINT 
30 MINT W<5>: PRINT | MINT W14): MINT ; PRINT 61(7): MINT : MINT »(BJ 

USX = 4:J* I: 60SUB 2000 

!10» = BiJ- 2: 60SUB 2401 

l»X« 1»:J = 3: B0SU6 20(0 

130 X- 12:J ■ 4: EOSUft 2611 

140 X ■ Mi'- S: SOSUB 2110 

ISO X ■ 14:J ■ 4: SOSUB 2200 

■ MX ■ 18iJ ■ 2: 60SUB 2000 

120 X ■ 2C:J = 6: SOSUB 2000 

180 GOTO 106 

200 INVERSE : FOR X = 4 TO 20 STEP 2; HTAB 15: VTAB X: PRINT SPCv 25): NEXT K; INVERSE 

205 FUR B = R TO I : IF M(B, J) ■ Rt THEN 250 

210 NEXT 

220 NORTH. : IF ) > I THEN 300 

250 HTA6 15: VTAB fj PRINT At(0,P: HTAB IS: VTAB 9: MINT M(0,2): HTAB IS: VTAB 10: PRINT At<B,3): HTAB 15: VTAB 

12: MINT At(Q,4> 
255 H1AB IS: VTAB 14: MINT At(fl,5); HTAB 15: VTAB 16: PRINT At(fl,4>: HTAB IS: VTAB IB: MINT At(B,7): HTAB 15: '/TAB 

20: MINT AtiO.Bi 

240 NORMAL : UTAB 24: HTAB 12: MINT ' SUPPRESS! m J*| 

241 OH OKI 

243 IF OKt • '0' THEN OOTO 500 

300 R ■ • h IF X ) = I THEN HTAB IS: PRINT TEST TOUT*: FOR T > I TO IOO0: NEXT i HOME :» * 1 : 6070 25 

310 SOTO 260 

34? HONE 

350 FOR = ! TO I 

340 NORMAL :Nt • MIS, 2) I ■ • t AtiO.U 

345 IF LBN (Nt> ( ■ I THEN 435 

370 PRINT 1ABI (40 - LEN CNI>) / 2)|Nt 

380 PRINT TAB! (40 - LEN (At(0.,7))) / 2) |At(0,7) 

m MINT 

460 MINTA4<B,3): PRINT At(0,5)|' •;«*((, 4) 

410 MINT 'TEL: '[At(8,4>;: HTAB (40 - LEN (At(0,B>)): PRINT At(0,8) 

420 MINT ' 



*i!i 


on Or* 










439 


NEXT 










H| 


R ■ • 1 


: IF « ) • I 


im 


HTAB 15; 


PRINT 'C'E! 


631 


GOTO 3*4 










500 


REN MECANISME 0E SUPPRESS! 0N-ARCH1VA6E 


505 SUP ■ 1 










510 A = A • ! 










320 


FDR L » 


1 TO B 








530 AR*(A,L) 


= At(0,L) 








566 


NEXT L 










■j',0 


REM RESTRUCTURATION 








'M 


FORM: 


8 TO I - 1 








570 


FOR L - 


1 TO a 








r M 


At(N,L) ■ 


■ At(H 1 l,L) 








m 


NEXT 1,1 


1 








m 


FOR L ■ 


1 TO 6iM(I,L 


)-•■ 


: NEXT Ll 


1 - I • 1 



pf 



pvfctt 



416 HOW : (/TAB IB: HTAB S: MINT 'SUPPRESSION ET RESTRUCTURATION': VTAB 12: HTAB 15: MINT , EFFECTUEES'i FOR PE * 

I TO 3*11: N£XT : SOTO 24 
2800 Rl ■ "fl = IS: HTAB Y: VTA* X: INVERSE I PRINT SPC( 23) 
2602 HTAB T: VTAB X: BET M: MINT M: IF ASC (N6) = 27 THEN SOTO 4606 
2003 IF ASC (NO) « 9 THEN 349 
2064 IF ASC (Nil ■ B THEN T - 1 - I: GOTO 2004 
2*05 GOTO 2612 

2104 IF LEN (Rt) ) 1 THEN Rt => LEFT* (Rt, LEN (Rl) - 1)1 SOTO 2002 
2067 ffl = "ft * 15: SOTO 2002 

2012 Y - f » 1 :R1 ■ Rt • N6: IF LEN (Rt) > =25 THEN 2615 
2113 IF ASC <NI> ( ) 13 THEN 2102 
2115 HTAB 15: (HAS X 

2120 NORMAL l MINT SPC< 25): INVERSE : HTAB 15: VTAB X: MINT Rt: NORMAL 
2130 IF LEN (Rt) ) ;2THENRt> LEFT* (Rt, LEN (Rt) - I ) : POP : 60TD 200 
2040 RETURN 

2101 Rt - "it - 15: HTAB Tl VTAB X: 1MJERSE : MINT ' 
2110 HTAB 1: VTAB X: SET CM: IF ASC (CM) = 13 AND LEN (Rt) ( ) 5 THEN HTAB 15: VTAB X: NORMAL I PRINT * 

■i RETURN 
2115 IE ASC (CPt) ( 48 OR ASC (CPt) ) 57 THEN 2111 

2120 MINT CPt: i • 1 < hCOt ■ CM • CPt: IF LEN 'CM) ) - 5 THEN Rt * CMrCM • "l POP : SOTO 200 
2130 SOTO 2110 
2260 Rt- "it- 15: HTAB T: VTAB X: INVERSE : PRINT ' 'i: NORMAL : PRINT \';i INVERSE : PRINT ' ■;: NORMAL : MINT 

V(t INVERSE : MINT * ' 
2210 HTAB Y: VTAB X: SET Nit: IF ASC (Nit) = 13 AM) LEN (Rt) ( ) S THEN HTAB IS: VTAB X: NORMAL : MINT SPCi 

B): RETURN 
2215 IE ASC (Nit) ( 4S OR ASC (Nit) ) 57 THEN 2210 
2220 MINT Nlt:T « Y . hOlt ■ Oil t Nit: IF LEN (Olt) ( 2 THEN 2211 
22251-1 • 1 
2230 HTAB Y: VTAB X: GET N2t: IF ASC (N2t) = 13 AND LEN (Rt) ( ) 8 THEN HTAB IS: VTAB X: NORMAL : MINT SPC< 

B): RETURN 
2235 IF ASC (N2I) ( 48 OR ASC <N2t) > 57 THEN 2230 
2240 MINT N2t:» = 1 • 1:021 = 02t • N2t: IF LEN (02t) < 2 THEN 2230 
2245 Y 



i B THEN HTAB IS: VTAB X: NORMAL I MINT 5PC< 



2250 HTAB 1: VTAB X: GET N3t: IF ASC <N») = 13 AND LEN tRt) 

8)1 RETURN 

2255 If ASC <N3t> ( 48 OR ASC <N3t) ) 57 THEN 2210 

2246 MINT N3t:Y - Y t Ir03t = 03t * N3t: IF LEN (03t) ( 2 THEN 2250 

2270 Rt - Olt < V • 026 t V ' 03ti HTAB 15: VTAB X: MINT R1:01t - ":02t - "lOW ' ":Nlt * ":h 

"i GOTO 206 

4600 Hi * UU • SUP: SOTO 4400 

4401 REN 

4420 HONE : VTAB 8: FOR L * I TO 8: HTAB <(40 - LEN (ARt(A,U>) / 2): MINT ARtlA.L): NEXT I 

4491 PRINT Ot 

4566 MINT Ot;*APPENO ARCHIVES' 

4520 MINT Mi'URITE ARCHIVES' 

4530 FOR L - 1 TO B 

4540 MINT AJM(A,L) 

4551 NEXT L 

4540 MINT Dti'CLOSE ARCHIVES' 

4571 RETURN 

4410 POKE 34,1: HONE :0t * ": VTAB 12: HTAB 7: INVERSE I MINT ■>•« RHDUR AU MONITOR "'"': NORMAL 
4463 Ot ■ " 

4411 MINT Dti'BLOAD CHAIN, AS29' 
4626 CW1 521'ADRESS NENU I' 



I NORMAL 



: VTAB 2: PRINT ' 




DEL ADRESS 



10 INVERSE l HTAB 4: PRINT 'III EFFACEMENT DCS FICHlERS « 
21 VTAB 8: PRINT 'QUEL FICHIER VOULE2 VOUS EFFACER i" 

30 MINT : PRINT | HTAB 15: MINT 'I ADRESSES' 

40 HTAB 15: PRINT '2 ARCHIVES' 

45 HTAB 15; PRINT '3 LES DEUX* 

50 MINT ; PRINT i MINT 'VOTRE CHOIX :') 

40 SET W : IF ASC (Rt) I 4? DR ASC (Rl) ) 51 THEN 60 

70 HOME : PRINT 'FICHIER D'ADRESSES 

_': POKE 34,3 
80 ON VAL <R1) 6OT0 200,500,600 

201 INVERSE : PRINT SPC( 40): FLASH : HTAB 17: PRINT 'ADRESSES': INVERSE : MINT SPC( 41): NORMAL 
201 PRINT : PRINT 
210 60SU6 1000 
220 HONE : HTAB 10: PRINT 'EXECUTION EFFACEMENT': HTAB 14: MINT 'ADRESSES' 

ana" 

240 PRINT Mj'OPEN FUEAWESS - 

256 PRINT »:'R£AD FREAORESS' 

240 INPUT I 

271 INPUT A 

286 PRINT Dft'DELETE FREAORESS' 

285 I -8 

2tl MINT Otl'OPEN FREAORESS' 

311 MINT Dtg'WRITE FREAORESS' 

310 MINT I 

321 MINT A 

322 FOR I = 1 TO B 
324 PRINT At(O.L) 
324 NEXT L 

330 PRINT Dt;'CLDSE FREAORESS* 

340 VTAB 12; HTAB 10: INVERSE : MINT 'OPERATION EXECUTEE* 

350 FOR X > 1 TO 3006: NEXT i GOTO 1041 

500 INVERSE I MINT SPCI 40): FLASH : HTAB 14: PRINT 'ARCHIVES': INVERSE : PRINT SPCI 40): NORMAL 

510 60SUB 1000 

520 HONE : HTAB 10: PRINT 'EXECUTION EFFACEMENT': HTAB 14: MINT 'ARCHIVES' 

536 Ot' '" 

541 MINT Dti'OPEN ARCHIVES' 

551 PRINT tttt'MLETE ARCHIVES* 

541 MINT Dti'OPEN ARCHIVES' 

541 MINT Dt;'yRITE ARCHIVES' & 

542 FOR K = I TO B 

543 MINT R*(0,K> 

544 NEXT X 

570 PRINT M;'C10SE ARCHIVES* 

5B0 MINT Dti'OPEN FREAORESS' 

590 PRINT Dti'REAO FREAORESS' 

410 INPUT I 

411 INPUT A 

621 :■:->.»: • is, e> 

430 FOR L * 1 TO I 

441 FOR M - 1 TO 8 

651 INPUT At(L,N) 

440 NEXT N 

470 NEXT I 

680 MINT Ot;'OELCTE FREAORESS' 

4B3A- 6 

4MJ MINT Dti'OPEN FREAORESS' 

7H miMT Oirt*nE filbwkgb' 

711 MINT I 

721 MINT A 

731 FOR L - I TO I 

740 FOR fl - I TO 8 

750 MINT At<L,H) 

746 NEXT M 

770 NEXT L 

786 MINT Mi'UOSE FREAORESS' 

7ft VTAB 12: HTAB 10: INVERSE : MINT 'OPERATION EXECUTEE'; FOR X = I TO 3001 

BOB INVERSE : MINT SPC( 40): FLASH : HTAB 10: PRINT 'ARCHIVES ET ADRESSES': 

BIO BOSUB 1000 

620 HONE : HTAB II: MINT 'EXECUTION EFFACEMENT': HTAB II: MINT 'ARCHIVES ET ADRESSES' 

336 Dt- '* 

646 MINT Dti'OPEN ARCHIVES' 

650 MINT Dt; 'DELETE ARCHIVES' 

640 MINT Mj'OPEN ARCHIVES' 

641 MINT »;'URITE ARCHIVES' 

842 FOR k = I TO 8 

843 PRINT »(0,X> 

844 NEXT X 

870 MINT Dti'CLOSE ARCHIVES' 

880 I - 1:A « 6 

890 MINT Dtj'OPEN FREAORESS' 

900 MINT Dti'DELETE FREAORESS' 

910 MINT Dti'OPEN FREAORESS' 

920 MINT Oti'USITE FREAORESS' 

931 MINT I 

940 MINT A 

950 FOR X = 1 TO S 

952 MINI BtU.K) 

W NEXT K 

940 MINT Dti'CLOSE FREAORESS' 

970 VTAB 12: HTAB 10: itWERSE : PRINT 'OPERATION EXECUTEE" 

981 FOR k M 10 3000: NEXT : SOTO 1141 

1111 VTAB B: HTAB 15: MINT 'ATTENTION ": PRINT ] PRINT 'CE M06RAMME EFFACE ENT1EREMENT LES ': PRINT 'INFORMATI 

DNS HUE CONTIENT LE FICHIER.' 
1I1B MINT : PRINT 'POUR ARRE1ER TOOT OE SUITE SON EXECUT10N';'TAPE2 'Eh'.' 
1020 MINT : MINT 'POUR EXECUTION, TAPE2 'Ctrl PV 
IB3B VTAB 24: PRINT 'VOTRE DECISION ''; 

1140 GET OKI: IF ASC (OKt) < > 27 AN0 ASC (OKI) ( I 14 THW 1141 

1150 IF ASC (OKt) ( ) 27 THEN RETURN 

1151 POP 

1160 POKE 34,1: HONE : IWERSE I VTAB 12: HTAB 7: MINT 'in RETOUR AU MONITOR >■«■• 

1141 NORMAL 
1076 M= " 

1080 PRINT Dti'RUN AORESS MENU' 
1091 END 



INIT ADRESS 

10 REM INITIALISATION FICHlERS 

20 Dt = " 

31 PRINT M:*OPEN FREAORESS' 

40 MINT Mi'URITE FREAORESS' 

50 PRINT '0': PRINT '0' 

40 FOR I = I TO 8: PRINT '0': NEX 

70 MINT Mi'CLOSE FREAORESS' 

80 MINT Dti'OPEN ARCHIVES' 

90 PRINT Mi'URITE ARCHIVES' 

100 PRINT '0': MINT '0' 

110 FOR 1 = 1 TO 8: PRINT "l'i NE 

12V PRINT Wi'CLOSE ARCHIVES' 




DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
tormule, pourtanl nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUXet FRANCAIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du Don de parti- 
cipation ainsi que toutes les ex- 
plications nee essa ires a ('utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance ! 

Reglement ; 

ART. 1 : HEBDOGICIEL organise 
de facon mensuelle et tnmes- 
trielle un concours dole de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART. 2 : Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue lacte de can- 
didature 

ART 3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de I'originalite les logi- 
ciels qui sont publies dans le 
lournal 

ART. 4 : Ce sont les lecteurs qui, 
par leur vote, determinent les 
meilleurs logiciels mensuel el 
Irimeslriel. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre, 1 , rue des Halles 75001 Paris 
ART. 8: HEBDOGICIEL se reser- 



ve le droil dinterrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avanl. 

ART 9 La participation au con- 
cours entraine lacceptation par 
les concurrents du present re- 
glement. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Nom 

Prenom : 

Age : 

Adresse : 

n° telephone : 

Nom du programme : 

Nom du materiel utilise ; 

declare etre I'auteur de ce programme qui n'est ni une imitation ni 
une copie dun programme existant. Ce programme reste ma pro- 
priety et j'autorise HEBDOGICIEL a le publier. La remuneration pour 
les pages publiees seront de 1 000 trancs par page (un programme 
n'occupant pas une page entiere sera remunere au prorata de la sur- 
face occupee). 
Signature obligatoire : 
(signature des parents pour les mineurs) 

Le programme doit etre expedie sur support magnetique (cassette 

ou disquette) accompagne d'un Descriptif Detaille du Materiel uti- 
lise, d'une Notice d'Utilisation du Programme, et d'un emballage 
timbre permettant la reexpedition du materiel non publie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Indiquez sur le support 
magnetique lui-meme votre 
nom. le nom du programme et le 
materiel auquel il est destine 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d Apple sur PC 1500 

• Notez dans les premieres 
lignesde votre programme, sous 
forme de REM, votre nom. le nom 
du programme et le materiel 
auquel il est destine. Nous pour- 



rons ainsi reperer facilement les 
listings, une fois sortis de I'impri- 
mante 

• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme Votre lettre d'accom- 



pagnement et vos autres cour- 
riers doivent egalement etre 
separes car traites par d'autres 
services 

• Joignez, si possible, un listing 
du programme et un organi- 

gramme. 

• Entin, le fin du fin, expliquez les 
particulates de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CEERS.232.C. 



LOGO: UN LANGAGE DYNAMIQUE 



Alain PRE nous propose une suite a son article sur LOGO 
(paru dans Hebdogiciel n" 14) ; apres le graphisme, les ob- 
jets manipules par LOGO accompagnes de procedures 
d'application. 



Ill - LES OBJETS LOGO 

LOGO peut manipuler en tout et pour tout trois sortes d'objets : les 

nombres. les mots et les listes. 

II n'y a pas beaucoup de commentaires a faire sur les premiers. 

Les seconds peuvent etre n'importe quelle suite decaracteres(Ienom- 

bre n'est pas limite) precedee d'un guillemet. II faut noter que LOGO ne 

considere pas les mots comme des chalnes de caracteres mais bien 

comme des objets uniques. 

Exemples : "BOUTEILLE "TABLE "MARDI sont des mots LOGO 

Enfin, les listes sont des suites d'objets LOGO (on auraitpus'endouter) 

delimitees par des crochets et separes par des blancs. Le nombre 

d'elements d'une liste n'est pas limite. 

Exemples : (LUNDI MARDI MERCREDI JEUDI VENDREDI SAMEDI Dl- 

MANCHE] 

[NORD SUD EST OUEST] 

[VOITURE SAPIN HOMME ECOLIER) 

[612 52122] 

[(BONJOUR AU REVOIR] [CHAUD FROID] [BIEN MAL]] 

[6 CHEMIN [VOITURE POMME] 14 [LOGO 10]] 

... sont des listes LOGO 

Voici les principales primitives LOGO concernant le traitement des lis- 



IV - LES VARIABLES LOGO. 

Une variable LOGO n'est rien d'autre qu'un mot LOGO auquel on a as- 
socie une valeur (on dit aussi un contenu). Cette association se fait par 
la primitive RELIE (ou, sur certains LOGO, la primitive donne) ; 
RELIE"RESULTAT120 
La variable resultat a maintenant pour contenu le nombre 120. 
La Redaction P° ur recuperercecontenu.il faut utiliserleprefixe":" qui se lit "le conte- 
nu de". 

ECRIS :RESULTAT provoque laffichage de 120. 
Remarque ; il ne faut pas laisser d'espace entre le "-" et le nom de la va- 
riable. 

Bien entendu, une variable peut contenir n'importe lequel des trois ob- 
jets LOGO. Voici des exemples d affectation qui sont tout a fait cor- 
rects : 

RELIE "FRUIT "POMME La variable FRUIT contient le mot "POMME 
RELIE "N 100 La variable N contient le nombre 100. 

RELIE "MEUBLES [TABLE CHAISE ARMOIRE COMMODE CANAPE] 
La variable MEUBLES contient maintenant une liste de mots. 
RELIE "CONTRAIRES ([ETE HIVER] [FROID CHAUD] [BON MAUVAIS]] 
La variable CONTRAIRES contient maintenant une liste de listes 
Remarque . le prefixe " :" peut etre remplace par la primitive CHOSE qui 
a la meme fonction : 
ECRIS CHOSE "FRUIT aftichera "POMME 



FRANCAIS 

RELIE <MOT><CONTENU> 



CHOSE <MOT> 



ABREVIATIONS ANGLAIS 

MAKE 
Associe le <mot> au <contenu> 
De cette facon. <mot>devient 
une variable. 

THING 
Extrait le contenu de <mot>. 



FRANCAIS 
PREMIER <LISTE> 



ABREVIATION ANGLAIS 



FIRST 
Retourne le premier element de 
<liste> 

LAST 
Retourne le dernier element de 
<liste>. 

SP BUTFIRST 

Retourne tous les elements de 
<liste> sauf le premier 
SD BUTLAST 

Retourne tous les elements de 
<liste> sauf le dernier. 

ITEM 
Retourne I'element numero <N> 
<Je ■ liste ■ ■ 

LL READLIST 

Retourne la ligne lue au clavier 
sous la forme d'une liste. 

METDERNIER <MOT> <LISTE> METD LPUT 

Retourne <liste> avec I'element 
<mot> rajoute a la fin 

METPREMIER <MOT><LISTE> METP FPUT 

Retourne <liste> avec I'element 
<mot> rajoute au debut. 

MEMBRE? <MOT> <LISTE> 

Retourne VRA1 si <mot> 
appartient a <liste>. 



DERNIER <LISTE> 
SAUFPREMIER <LISTE> 
SAUFDERNIER <LISTE> 
ITEM <N> <LISTE> 
LISLISTE 



Voici des exemples de programmes qui utilisent abondamment les va- 
riables et le traitement des listes. 
POUR DEUXIEME :LIST 
RETOURNE PREMIER SAUFPREMIER :LST 
FIN 

La procedure DEUXIEME s'utilise exactement comme les primitives 
PREMIER et DERNIER, par exemple : 

ECRIS DEUXIEME [BONJOUR AU REVOIR BONSOIR BONNE NUIT] 
Ecrire AU REVOIR 

On remarquera la primitive RETOURNE qui est utilisee pour renvoyer le 

resultat a la procedure appelante ; dans notre exemple. ECRIS. 

POUR CONNAIS TU :OBJET 

RELIE "FRUITS [POMME CERISE PECHE POIRE PRUNE COIN BANANE 

ORANGE] 

RELIE "MEUBLES (TABLE CHAISE COMMODE ARMOIRE BUREAU] 

RELIE "ARBRES [PIN SAPIN CHENE PEUPLIER SAULE ORME CHATAI- 

GNER] 

EXPLiOUE :OBJET 

FIN 

POUR EXPUQUE :NOM 

SI MEMBRE? :NOM FRUITS [ECRIS [C'EST UN FRUIT] STOP] 

SI MEMBRE? :NOM MEUBLE [ECRIS [C'EST UN MEUBLE] STOP] 

SI MEMBRE? ;NOM ARBRES [ECRIS [C'EST UN ARBRE] STOP] 

ECRIS PHJE NE CONNAIS PAS]:NOM 

FIN 

Voici ce que donne I'utilisation de ces procedures (les phrases en mi- 
nuscules sont des reponses de I'ordinateur) - 
CONNAIS-TU "PEUPLIER 



C'est un arbre 
CONNAIS-TU "ARDOISE 
Je ne connais pas ardoise 
CONNAIS-TU "POMME 
C'est un fruit 
CONNAIS-TU "ANANAS 
Je ne connais pas ananas 
etc., etc... 

Ce programme est tres simple mais nous verrons plus tard un program- 
me qui apprend les mots nouveaux qu'il ne connait pas encore. Son vo- 
cabulaire s'enrichit ainsi a chaque partie. 

Voici maintenant un programme traducteur anglais/francais. II peut 
etre utilise par exemple poureffectuer la traduction entre le LOGO an- 
glais et le LOGO francais (ou vice versa). 
POUR DEBUT 
DONNE "FRANCAIS [] 
DONNE "ANGLAIS [] 
FIN 

POUR FRANCAIS :MOT 

RETOURNE EQUIVALENT :MOT :FRANCAIS :ANGLAIS 
FIN 

POUR ANGLAIS :MOT 

RETOURNE EQUIVALENT :MOT ANGLAIS :FRANCAIS 
FIN 

POUR EQUIVALENT :MOT :LISTE1 :LISTE2 

SI OU EGAL? :LISTE1 [] EGAL? LISTE2 [] [RETOURNE "...INCONNU ) 
SI EGAL? PREMIER :USTE1 :MOT [RETOURNE PREMIER LISTE2] 
RETOURNE EQUIVALENT :MOT SAUFPREMIER :LISTE1 SAUFPRE- 
MIER :LISTE2 
FIN 

POUR APPRENTISSAGE 
TAPE [MOT FRANCAIS ?] 

DONNE "FRANCAIS METDERNIER PREMIER LISLISTE ;FRANCAIS 
TAPE [MOT ANGLAIS ?] 

DONNE "ANGLAIS METDERNIER PREMIER LISLISTE :ANGLAIS 
FIN 

POUR MEMORISE 
SORTIE EDITEUR 
ECRIS FRANCAIS 
ECRIS :ANGLAIS 
SORTIE CONSOLE 
SAUVED "DICO 
FIN 



POUR RECUPERE 

CHARGE "DICO 

ENTREE EDITEUR 

DONNE "FRANCAIS LISLISTE 

DONNE "ANGLAIS LISLISTE 

ENTREE CONSOLE 

FIN 



Voici un exemple d'Utilisation {les phrases ecrites en minuscules sont 
des reponses de I'ordinateur) : 
RECUPERE 
ECRIS FRANCAIS "TO 
pour 

ECRIS ANGLAIS "FIN 
end 

ECRIS FRANCAIS "MAKE 
.. inconnu... 
APPRENTISSAGE 
mot francais ? RELIE 
mot anglais ? MAKE 
ECRIS ANGLAIS "RELIE 
make 

MEMORISE 

Comme vous I'avez compris, la procedure MEMORISE sauve tout le vo- 

suitepage 13 



DESASSEMBLEUR 



TS*-SEG*(B*. 11,21 



Ce desassembleur en Basic vous emmenera au cceur de 
votre Texas qui vous devoilera tous ses secrets. (Reserve 

aux forts en theme). 

Robert BOIS 

Le programme de desassemblage ecrit en Basic etendu permet de 
traduire une routine situee en memoire MPU ou un enregistremenl de 
mots machines sauvegardes sous forme hexadecimale au prealable 
sur disquette ou cassette a I'aide dun programme utilitaire. Les deux 
programmes presentes sont ecrits en version disquette mais sont 
directement transtormables puisque tous les fichiers sont trattes 
sequentiellement. 

Les donnees a fournir sont les adresses machines pour les routines en 
memoire et les numeros d'enregistrement pour les sauvegardes dis- 
quette ou cassette. Dans ce dernier cas, on peut attribuer une adresse 
de base au premier enregistrement pour le sequencement des diffe- 
rentes instructions. 

La representation des differentes instructions est conforme aux nota- 
tions de I'assembleur du TMS 9900 sauf pour les instructions de saut 
qui sont representees sous la forme suivante ou > XXXX represente 
I'adresse destination JES+ n... >XXXX. 

Une option de sortie des resultats par RS232est prevue. A titred'exem- 
ple il est presents le desassemblage de la routine XMLLNK de la mmi- 
memoire. 



o 




l. A3*. 1 i-l 



4)i) D*-"" :i A3*-SEG»IB*.9,3I V( 

(P05(H*.A3*. n-ll/:il4»l,4ln IF 
THEN NU-1 :: GOSUB 11B : : S*"">"< 
OR 0P*-"STWP" THEN CALL CODEIS*); 
: S»-"R"t.S* :: NW-1 II GOSUB 118 



«B*VAL(SEG*tB*. 
i i IF Al*-"2" THEN OP' 
ELSE IF Al*-"3" THEN OP* 
: : CAUL CODE 15*; 
EOIS*,F*(l> )il GOTO 1 



CALL ADR I 



F*INW)' 



S A*-"007E425A5A427E" :: CALL CLEAR 
LORU, 17-1, 2)1 I CALL CHAR(31*BI I , A*l 

9 DISPLAV ATI12.9): "DESSASSEMBLEUR" 

10 C-39 ii IA-1 ii 18-2 



-■;-.! 



CALL SCREEN12):: Ft 
NEXT I 

DISPLAV ATI13, llll< 
FOR I-l TO 12 i 



,C,V)ll CALL VCHARIIA 
C.HUl IA-[A*1 :: IB-IB*1 
: IF IM-5 THEN CALL CLEAR i 



CALL VCHARIIA, IB*) 

11 CALL HCHAR(IA*V-1. ; 
CALL DEL 1 100): i NEXT | 

12 REM--PAGE 2« 

13 CALL DEL (5001s: CALL COLOR I 1 , 2. 12 J : : CALL CLEAR I 
RSET :: FOR 1-2 TO 9 :: CALL COLOR! I , 2. 12) : : NEKT I 

14 CALL HCHAR(1,2.103.31 I: : CALL VCHAR 1 1 , 32. 1 1 I . 24) i 
ALL HCHARI24. 2, 127,31) 



CALL SCREEN! 12) 
CALL VCHAR (1,2, 



15 DATA CE PROGRAMME PERMET DE DES- 



IIRE I 



UNE ROUTINE, SITUEE. 



Id. DATA " -SUR UN FICHIER DE HOTS". 16 BITS CREE PAR LE PROG. , ttLECL 1ST* 
17 DATA •' SORTIE RS232 OU VIDED" 

IB FOR 1-1 TO 13 II READ A» ■■ FOR J-l TO LENIA*) I : CALL HCHAR 15*1 . 3+J 
A*. J, Illlii NEXT J I I NEKT I 

19 CALL DELI1000):: CALL CLEAR :: CALL SCREENI6):! FOR I-l TO I 
, 16, 6): : NEKT I 

20 REM--DATA-- 

21 G1«-"S!C S2CBS SB C CB A AB MOV MOVBSOC SOCB 

22 G2*="JMPJLTJLEJEQJHEJGTJNEJNCJ0CJN0JL JH J0P5B05BZTB 

23 G3*="CDCCZCX0R" 

24 G5*-"SRASRL5LASRC" 

25 G7»-"[DLERSETRTWPCK0NCK.OFLREX" 

26 GB»-"LI AI ANDIORI CI STWPSTSTLWPI " 

27 DATA "BLUP". "B" . "X " , "CLR", "NEG" , " INV" . " INC" . " INCT" , "DEC", "DECT 
2B DIM G6»I2,3):: FOR 1-0 TO 2 :: FOR J"0 TO 3 :: READ G6SII.J):: 



ASCISEG*! 



10 :: CALL COLOR ( I — ML 



A=VALIA2»)-4 :•. B-VAL!A3»)/4 

94 IF A2*-"7" AND A3*-"0" THEN OP»-"SETO" ELSE IF A2*-"" 

95 IF A2*-"7" THEN 96 ELSE OP»«G6* !A. B> 

96 CALL C0DE(S*>!1 CALL ADR 1 IP, TS», S») : : IF IP-1 THEN Nl 
E0CSS,F*(1)I 

97 RETURN 

9B 'FORMAT VI I 

99 D*-"" :: S»-"" :: OP*-SEG* 

100 RETURN 

101 'FORMAT VIII 

102 S*-5EG*(B*,13,4> it D*-"" 
*IH*, 1 -Y.iL A3* ■ , 1 ) 

103 0P*-S£G*IGB» 

104 IF DP*="LWPI 

105 IF OP*""STST 

106 CALL CODEIS* 

107 RETURN 

108 -FORMAT IK 

109 A2*»STR*IVAL(SEG*IB*,3, I 
• (B»,13,41i: TSS-SEGXB*, 11. 

110 IF A2»-"8" THEN OP*-"MPY 

111 CALL CODE!D»):t D^-^'R-'SiD' 
HEN NU-I i: GOSUB 118 II CALI 

112 CALL CODE(D»)JS CALL CODEIS* 
OSUB IIS i: CALL ED1S*,F»(1)) 

1 13 RETURN 

114 ! FORMAT DATA 

115 OP»="DATA" II S«-">"*.A* 

116 RETURN 

117 REH--LECTURE ADRESSES-- 

118 IF IM-0 THEN CALL PEEK(H,A,B 
: : INPUT »3:F*(NW.i 

119 J0=PQB(N*,SEB*(AD*,4, I) ,l)n 
SEG*(H*,J0*2, 1) 

120 IF NNOO THEN AID»!NW)-AD» 

121 RETURN 

122 IF S£G*(AD*,3. 1)<>"F" THEN AD*«SEG*(AD» 
*l,l)fc"0" II RETURN 

123 IF SEG»(AD».2. DO-F" THEN AD*-SED»IAD» 
*l, 1)&"00" :! RETURN 

124 AD*-SEG*(H*,P0S(H*.SEG*IAD*,1, 1) , 11*1, 1 

125 REM--SOUS-PROGRAHHES" 

126 SUB F0RMAT1A1*,A2*,A3*,F,H*): i IF POS !M», Al», 1 > >4 ' 

127 IP-VAL(A1*>*1 :: ON IP GOTO 131,128,129,130 

128 F»2 i: SU8EXIT 

129 IF PDS(H»,A2», 1 ) ■; 1 3 THEN F-3 i: SUBEKIT ELSE F-9 :; 

130 IF POS(H», A2», 1 >-:9 THEN F-4 ii SUBEXIT ELSE F-9 II 

131 IF A2*-"0" OR A2««"l" OR A2*-"C" OR A2*-"D" OR A2t' 
:: SUBEKIT 

132 IF A2» 

133 IF A?l< 

134 IF A2*< 
:: SUBEXI 

135 IF A2«' 

136 IF A3«> 

137 IP-POS 
13B SUBEND 

139 SUB ADR(IP,T», AS) 

140 IF T*""00" THEN A*-"R"i.A* :: SUBEXIT 

141 IF T«-"01" THEN -■»■'■ ir-.-.a* ii SUBEXIT 

142 IF T*-"ll" THEN A»-" *ft"fcA»&"*" :i SUBEXIT 

143 IP-1 ;: IF A*-"0" THEN A*-"" ELSE A*-" (R": 

144 SUBEND 

145 SUB CQOE(F*> 

146 A-0 II FOR I-l TO 4 is A-A*VAL 1SEG* IF*. I , 
: SUBEND 

147 SUB EQ(A*,F*1 

148 A1 



THEN OP«-' 



3" THEN OP«-"LIMI" 

It GOTO 107 
'"R"S.S» I 1 GOTO 107 
1--V&FK1) 



L AOR'IP.TSS.S*):: 1 

3 ELSE 113 

S»l:i IF IF-1 THEN r 



(B)ELSE IR-IR+1 



THEN GOSUB 122 ELSE AD»-SEG» 1AD», I , 3) J 



,2)t.SEG»(f 

., IHSL-GIil 



the;', f=s i 



i- OR A2»^ 
>" THEN F. 
I. A3*. 1) : i 



,"000" 



: GOTO 137 

OR A2«-"6" THEN F-6 II SUBE: 
,A3«.I)<9 THEN F-6 :: SUBEXI' 

OR A2»="A" OR A2«="B" THEN I 
: SUBEKIT ELSE F-7 
IP»2»INTIIP/2)THEN F-IO 



,P0S(H»,SEG»(AD*,3, 1 
,P0S(H»,SEG«IAD»,2, 1 



( A2»-"F" THEN f 



ELSE IF A2«-' 



,"O010","00t 1 
101", 



■',,!,., 



"1111 



:: OPEN 13l "DSKl .MEM" II SP«-"" 
r "SORTIE RS232-2" :: PRINI "SORTIE 

CALL CLEAR : : IF IE-2 THEN SP«-" " 
»5):: FOR I 'O TO IS :: READ BIT!!! 

COMPTER. -0-253" 



29 DATA "O000","0001' 
01O", "lOll", "1100". "I 

30 REM"CHOIX OPTION! 
SI OPEN «2. "RS232.LF' 
32 CALL CLEAR II PRIt 
IDATt l"OZ'-)BEEPi IE s: 
>3 DIM BIT»1 )5) .HEX*' 

34 PRINT "APPRENONS t- 

35 H«-"01234567B9ABCDEF" ■■ FOR I -O TO 251 
»(Ht,I-16»INT(I/I6)-l, I ) : ! PRINT HEX»(I)j" "| 

36 CALL DEL(100)i: CALL CLEAR :: PRINT "LIST! 

37 PRINT "-MEMOIRE-0" :! PRINT "-ENR. DEBUT=: 
■-FIN-5" 

38 ACCEPT VALIDATE!' 
HEN RESTORE »3 

39 IF IH02 THEN DISPLAV :"T1' 
4)0 IF 1M-2 THEN IA=IA«IR :: H 

41 IF 1M-0 THEN 46 ELSE IR-u ; 
NPUT "POSITION MDT DEBUT ":IA 

42 INPUT "POSITION HOT FIN 

43 IF !M=l THEN PRINT "ADR. HI 
LDEF ")5lfE<41 :AD« 



0IO1".' 



"0111" 



I 



ACCEPT VAL 



HE««!IJ=SEG»!H». INTII/ll 
II NEXT I 
NG" :: PRINT 
'■ s: PRINT "-ENR. SUITE-! 



1 . 1 1 ..,■ i ...in.... .■ . 

2 REM* IMAGE MEMOIRE " 

3 ■.L-miiiiiiniliiiiii" 

4 REM! SAUVE6ARDE DE MOTS* 

5 REHIMACHINE SOUS FORME I 

6 REMUHEXADECIMALE « 

7 REHSta ••«••« •«•■•*■*•••* 

9 DIM HEX»(255) 

H»-"0 1 234567B9ABCDEF " 
DPEN •1:"DSK1.MEH" 
FOR I"0 TO 255 
HEX*(I)=SEG»(H», INTII/ll 



BAStC 



■'.1125")BEEP: IM 



CALL CLEAR : 



1-5 THEN 8 ELSE IF 



G"," ■'." " II ACCEPT BEEPi 

NT "POSITION MOT DEBUT "til 
LISTING ENREGISTREMENT" ;: 



. DU MOT DEBUT" 



ACCEPT BEEP \ 



f. IN 



ilEi 



\- IN 



H : ■_- 



A»l OR IM-2 THEN 51 

45 FOR I-J TO IA-1 :: INPUT «3lA* :: NE: 

46 PRINT "LISTING DE MEMOIRE" :: PRINT 



48 AD*-H1S : i FOR ! 
<P0S<HS,SEG*(H2*,4- 

49 CALL CLEAR i i Pi 



i TO 3 i ■ I 

1>, t)-l) t: 

IT KIElT» : 



• IPOS if 
; : NEXT i 
1INT It IE i 



RINT HIEi'-A&R. 



PRIN 1 



( I) 



*1, 1)!<SEG«IH», 



:xt i 



ADR. DEPART DEC I . 

7 INPUT "ADR.ARRIVEE DECI 

8 FOR I -A TO B STEP 2 

9 CALL PEEK. (I.X.V) 

20 X«-HE««<*>!.HEX»!Y> 

21 PRINT «1:X* 

22 NEKT I 

23 CLOSE Nl 

24 END 



EJENDV3 



UTILITAIRE XML 

MOTS 101 - 12: 

60CS C83E MOV 
AOCA 83E2 
60CC 02E0 LWPI 
GOCE S3E0 
6OD0 C80B MOV 
6O02 7CAB 

60D4 coei nov 

6O06 0281 ci 

60D8 8000 
60DA 1B07 JH 
600C 09C1 SRL 
60DE 0A11 SLA 
60E0 0A42 SLA 
60E2 09B2 SRL 
60E4 A0A1 A 
60 E6 OCFA 
60E8 C092 MOV 
60EA 0692 BL 
60EC 02E0 lwf I 
60EE 7092 
60F0 CBOB MOV 
60F2 B3F6 



R11,3>70AB 



1 1.3183F6 



i i H2-H: 
|H2« :: 



50 REM--DESSASSEMBLAGE-- 

51 ADO»=AD« ■■ IF IM-0 THEN CALL PEE*: ( 
NPUT 43:A« :: IR-IR*1 

52 B«.OP».D».S«,TS», TD«="" : : F.NW, IP= 



FOR 1=1 TO 



A«-HEX»IA)1HEX»(B»[ 
I II B4»B»H.BIT»(P0S() 



< 1> 



M ■ ■ 



■1 GOTO 37 

i=SEG»(B»,13,4) :i 0»=SEG» (B», 7, < 

P-l THEN NW-NU'l II GOSUB 118 i 

P=l THEN NW-NW-M :: GOSUB 11B : 



■■■ :■■ ■:■:■•• t : 



D»-'" 



53 A1»-SEG«(A«, 1, 1) :: A2»-SEG» IA», 2, 1 ) ; : A3«=SEG» (A«, 3, 1 ) : i A4«-SEG» 1A«, 4, : 
F A»-"FFFF" THEN 0P«="***«" :; GOTO 36 ELSE CALL FORMAT (Al», A2», A3*, F,H») 

54 IF F-0 THEN 32 ELSE ON F GOSUB 66,71,81,83.89.93,99.102.109,115 
53 IF D«<>"" THEN D«-","».D« 

36 PRINT »IE:ADO*iSP«;A«;" "i OP»i TAB < 15- IE) ; S«; D« j: IF OP»-"RTWP" OR(OP»=' 

D S*-"R»11")THEN PRINT HIE ii PRINT «IE 

57 IF NW-0 THEN 59 

5B FOR I-l TO NU :: PRINT * lEl AID* < I ) ;SP»iF» < I ) I : NEXT I 

39 GOSUB 119 i : IF IM-O THEN 60 ELSE IF IB>-IA«-IR THEN 31 ELSE 61 

60 IF H2>H*1 THEN 51 ELSE 61 

61 PRINT :: PRINT " ■■ FIN DU LISTING 

62 CLOSE «2 : : CLOSE 43 

63 END 

64 REM--FORMATS INSTRUCTIONS-- 
63 'FORMAT I 

66 0P*=SEG*(G1», (POS (H*. Al *, 11-5) *4* 1,4) I 
TD*-SEG*(B*.5,2)i s TS*-SEG*<B*. 11,2) 

67 CALL CODEIS»)ii CALL ADR ( IP, TS*. S*> : : 
-0 I I CALL E0(5*,F*<1>> 

68 CALL CODEID*):; CALL ADR I IP, TD*. D* ) : : 
LL E0(0*,F*(NW1 ) 

69 RETURN 

70 'FORMAT II 

71 0P*-SEG*(G2*. (P0S(H*,A2«,1) -11*3*1,3) : 

72 FOR 1-0 TO 255 .- : IF S»=HEX* ( I ) THEN 7' 

73 NEXT I 

74 IF I-:i29 THEN 75 ELSE I-I-255 

75 IF SEG*(OP*. 1, 1)-: >"J" THEN 3 

76 I-(I*1)«2 :i IF KO THEN 1=1- 

77 IP»I : : FOR I-I TO 4 II 

7B FDR I-l TO 4 :! J-INTIIP 

):: NEKT I II S*-S*B," . . > "IT 

79 S*=STR*(I):i RETURN 

80 'FORMAT III 

Bl A2*-5TR*(VAL (5EG*(B*,5, 1 ) 1 1B*VAL (SEG 1 
*(B», 11,2) : : 0P*-SEG*(G3*. IVALIA2*) i 

82 S*-SEG*(B*. 13,4)i: CALL CODE(D*)!: D*-- 
S*,S*>:: IF IP-1 THEN NW= i n GOSUB 11B : 

83 RETURN 

84 'FORMAT IV 

85 A2*-STR*(VAL(SEG*(B*,5. 1) > «B*VAL (SEG* ( B*. 6, I ) I 14)1 : DS-SEGS (8*. 7, 4) II TSl 
*(B*,11.2):: IF A2*-"0" THEN OP*="LDCR" ELSE OP*="STCR" 

86 S»-SEG«(B». 13.4) !! CALL COOEID*):: CALL CODEIS*):: CALL ADR I IP. TS*. S*l : : 
P-I THEN NW1 :: GOSUB 118 ii CALL ED(S*.F*I1)) 

B7 RETURN 

BB 'FORMAT V 

B9 D»=SEG*IB*,9.4) :: S*=SEG*1B*. 13,4): : OP* = SEG* IG5*. IP0S<H*.A2*. l)-9)*3+l,: 

90 CALL CODEID*):: CALL CODEIS*)!: S*-"R"t,S» 

91 RETURN 

92 -FORMAT VI 

93 A3S-STR* IVAL(SEG*(B*.9, I ) ) *8*VAL (SEG* (8*, 10. 1 ) ) 14) : : D*-"" : I S*=SEG* IB*. 



RETURN 



■'•**'!,STR*(I>ELSE S*-"*+"5STR* ( I 
:i«IPOS(H*,SEG*(AD», 1,1), 11-1)1 
TS*-TS**.SE6*(H»,J.l, l)s: IP- IP 



l*4Is! D«-SEG*(BI 
13*1.3) 

D*-"R"!.D* :: CALL CODEIS*): 
CALL E0(S*,F*I1) ) 



. ADRI 



GUERRE SPATIALE 



Un vaisseau de I'espace s'abat sur votre astronef. Atten- 
tion, ses ailes de geant ne l'emp€che pas de voler et votre 
unique chance de survivre est de I'abattre avant d'etre 
abattu. 

Deplacez-vous avec les fleches du clavier et tirez avec la 
barre d"espacement. 

Marie CAVIRE 




' HA-5324a+40*34*20l B 

! REM 

i C0L0R.,7.2!PRINl"li!" 
< FOR 1-0 TO 7IA-I/2* 
'• IC>RND(1> 19*14 
. CII.O)-INTlIC) 

H-1NTIRND! ll*2)»* 
! CC-INT(RND< 
I CURSOR B. 



READ 



*A 



tf& 



PEEK 



, 23) ■ 



J420 1 



■ -.''.'l 



i +94210)1 

) IF BC-0 THEN 4O00 

l CURSOR CU.23>.23iPRINT" "1 

) GOT01O00 

i CURSOR 13. lOiPRINT'JEU TERMINE 

; cursor : 



if*ce*-H)+-ir> 



> FDR J-0 TO 24 
i PRINTMID*(T*. J 
' C(1.J)-1NTIA*S 

> NEKT J.I 

• FDR 1-1 TD BOO 
i NEXT I 

> COL DP. .*^.>:"PRINT"H" 

■ 

i S0SUB81 poke HA.iX'l 

tO X-INTIRNDll 118' 

•0 FOR 1-2 TO 2! 

lO CURSOR C(X. I-l ' .I-UPRINT Gl»l 

ID CUftBOB CU, I) . HPR1NTE6. 1 ]GA*i 

»> GET ) l*:FO)E*l 1 70. 1 

C GET D:P0KE*1170,0 

>5 DI-0 

10 IF I 1*="0" THEN DI--1 

!0 IF ► 1*-"B" THEN Dl-11 

EO POKE HA.O!HA-HA*DI:POKE HA. 201 

10 IF PA 53328 THEN POKE BA.0IBA-O 

!'• IF BA-O THEN 1 400 

?0 IF PEEK (BA-40)'"'0 THEN 7000 

■.,, PO) E BA.0IBA-BA-4O:P0KE BA.S3 

I" IF PEEK (BA-401- O THEN 7000 

10 POKE BA,0!BA-BA-40:P0)E BA.57 

In G0T01999 

>0 IF K14-" " THEN BA-HA-4i>iMUSIi:"-F0-E" 



' LA T0UC1 
SC : HH THEN HH-SC 
4020 GET S*MF S»-" "THEN 450O 
4030 GOT 04020 
4500 RRINT-H" 

4505 BC-3»BA-0 
4310 5C-0IG0T081-"' 
6000 POKE HA. 107 

6010 MUBIC"_D0_F_B_A_C_B_F_D_E_D4_G" 
6020 BC-BC-1 
6f)25 G0SUB80OO 
6030 RETURN 

7000 BA-OiSC-SC-K'tcURBDR Cd.11.1 
7010 PRINT" •»•"( IMUS1C"^CC'_C-F-G— 
7I..20 PRINT"B"I 
7025 G0SUB8O0O 
7030 GDSUB8100 
7999 I-24IG0T01999 

800P CURSOR 27.0iPRINT[3,4J"VAlSSEAU"iBC 
8010 RETURN 

Bio.. CURSOR 2.0iPRlNTC4.0)"5C0RE"'tSCl 
8110 CURSOR 14,0tPRINTI0,21" RECORD "IHH 
B120 RETURN 
DATA ■ 



NEXT I 
IF PEEK 



12 



i DATA 
i DATA 

> DATA 
i DATA 
i DATA 
) DATA 

> DATA 



111 GUERRE SPATIALE I ■ 

||] i 1 

UMMfiOUVEMENT 3AUCHE-- (-" 

IIMMF-OUR TIRER ESPACE" 



iCIX.23)*542O8>-201 GDSUB6000 



SLALOM 



Votre voiture est, elle aussi, munie d'un ordinateur et il va 
vous falloir le programmer pour le que drapeau a damrer 
de I'arrivee soit (ranchi sans embuche. Un programme 
dans le programme ! 



Bernard LATTEUX 



P30 DX*DX*1.0C> ,.=,->L'.- 

752 IFX>253THENX"X-255 POKEVM, I 

;',', PQKEVX 



i rem ; 



TRACE DES OBSTACLES 



,:, ,:;: :.'..'.:.;.;. :.:.:. .v. :.:.:.:. v.;.'. v.;.:.:/. 
imiie slalom ;; Bernard latteux ;; 

i-'tM -. ..'■'!'. MJRE 64 V, DECEMBRE 1383 H 

4 rem y.y.', .WW.:;.;-;.-;.;-.;.:.:.:.. ;;:.;.::-::::::::::.:. 

9 - POKE532S1.0 P0Ke52,48 PQKE56.48 CLR 
. Vl«54296 Ll-34272 H1=L1+1 U1=L!*4 A1=U1+1 Sl"ftl+1 

9 V-53248 v,-;=v VV=V*1 VM=V+16 V8«V+38 VB=V*31 PO"fl 

10 P0kEV#39, 14:P0KE V+40,7 POKEV+41,3 
12 PR I NT "MM VOULEZ VOUS Lt NUDE ii EHPLOl'-O/N" 
15 GETRf IFRf="" THENG0TQ15 
IS IFRS="0" THEN COSUB 1500 G0TQ29 

19 PRINT "mUMUM INSTANT SVP" 

20 FORN=0TG62 READQ P0KE12352+N.Q NEXT 
22 FGRH=0TO62 RE ADO P0KE12416+N.Q NEXT 
24 FQRH=8T062 REHDU PQKEI2480+N.Q NEXT 
26 FORN=0TQ62 READQ P0KE12544+N.0 NEXT 

■ <.'T062 READQ P0KE12288+N,G NEXT 

29 POKE2840,134 PUKE2841.192 

30 POKEV+21 . 3 POKEV+23, 2 PQKEV+29 . 2 

31 POkEVM.2 PQKEVS.8 PuKEVB,0 

32 X-28 V=140 

33 POKEVX.X POKEVV.Y 

35 PRINT".?' 

36 INPUT"NOMBRE D OBSTACLES" ,NB PRINT".?' 

38 REM 

39 FOR H=1T0NB 

40 H»INT(B40*RNIKTI>) 

45 IFCA-48*INT<(A-U/40J)>38 THEN 00TO48 

50 B=1 + INT.15*RND'.T1.'.' 

60 C»INT<2«RND'.TI ») 

70 P0KEU44+A.42+C 

80 P0KE55416+A.B 

90 NEXT 

100 FORI-0TO5 F0RJM8TO14 

110 POKE1024+J*40+I, 32 NEXT NEXT 

120 FORI=34T039 F0RJ=9TQ14 

130 PQKE1024+J*40+I,32NEXT NEXT 

135 OOSUB 1200 REM TRACE DO LrtURE 

137 POKE2040.194 P0KE2841.192 

138 PQKEV+2,28 POKEV+3.134 
140 PRINT"M OK? OVN" 

150 OETR* IFR*-""THEN COTO150 
160 IF R««"N" THEN GOTO 35 
170 IFR*O"0" THEN O0T0 150 
252 MS= 10000 
255 DX»2 DY-0 SC=0 

257 P0KEVM,2 POKEVS-0 POKEVB.8 

258 REM ENTREE DU PROGRAMME DE PILOTAGE 

260 IC-0 SC=SC+2 

278 PRINT "«0UTE A SUIVRE?" 

260 PRINT"M «'■ INPUTCS 

290 IF LENIC4K2 THEN PRINTS " GOTO 390 

300 IC-IC+1 -PRINT"* ■'• 

310 D*CIC)=LEFT*(C*. 1 i : L-LEN(C4> LO< IC>-VAL<RIGHT»(C<.L-1 > ) 

320 O0T0288 

390 POKEV1 , 15 POKEAl . 9 POKES1 . 240 PQKELl .20 POKEH1 ,2 ■ P0KEW1 , 33 

395 REM DEPLHCEMENTS HE LA VOITURE 

Ci IFD*( I >="G"THENCP«DX DX-DY 0Y«-CP GOT0422 

415 IFDJO >="R"THENDX=-DX BV—BV • 00T0422 

420 IFB*< Ij*"D"THENCP=DX DX—DY DY*CP 

422 IFDVO.5 THEN POKE2040. 193 GOTO430 

425 IFDX>.5 THEN POKE2040.1S4 GOTO430 

427 IFDYX5 THEN PUKE2040, 193 GOT0438 

428 POKE2040.196 

430 LL-LO'. I; F0RJ-1T0LL 

432 XX=10»J IFXX>1308THENXX*1500 

433 XN-INUXX/256J 
435 XL-XX-256*XH 

4 3b POfcEHl.XH+2 
437 P0KEL1.XL 
440 X="X+DX Y»Y+DV 

450 IFPEEK',VBX>0THEN OOSUB 1000 GOTO260 REM ACCIDENT 

460 IFXJ255THENX-X-235 POKEVM, 3 GOTO5I0 
470 IFX<8THENX«X+256 POKEVM, 2 GOTO510 

500 IFPEEktVSK>0 THEN OOSUB 1100 OOTO620 REM RRRIVEE 

510 POKEVX.X POKEW.Y 

eee next next 

605 P0KEW1.32 

610 GO TO 260 

620 PRINT"»N CONTINUE?0/N" 

630 CETRt IFR*«""THEN GOTO630 

640 IF R*«="G"THENX=28 Y»140 POKE2040, 134: POKEVX.X POKEVY. V G0T0255 

642 IF R*0"N" THEN GOTO 630 

645 REM TABLEAU FINAL 

650 F»«" HU REVOIR I 

655 11=1 

t"60 print "maannur 

t.70 PO^£2040.194 POKEV+21, 1 

680 X=28 V=100:DX-0.6 

690 POKEVX.X P0KEVY,Y 

r'00 POKEU1. 33: POKEVM. 

705 FORI=1T012 

710 DX=DX«1.1 XsX+DX 

712 IFX>255THENX=X-255: POKEVM, 1 

i t 15 POKEVX X 

717 IFXX10+8*IIjTHENPRINTMID*CFf,II,I), II»II*1 

720 XX-100AI 

730 XH-INKXX/256J XL«XX-2564XH 

740 P0KEH1.XH+2P0KEL1.XL NEXT 

745 FORI-1T01B 



IFX^' 



i0+3*lI.'THENPRINTMID»'Fi,II.l.' 



11=11+ 




11=11+ 



?ee xx«60*i 

770 /.H=lUl:.:..r^6/ XL=Xa-256»aH 

7c,y POKEHl.XH*2 POI'ELl,XL NEXT 

765 FOR1=1T025 

7S0 DX=DX*1.84 X=X+DX 

792 IFX>255TH£NX=>;-255 POKEVM. l 

795 POKEVX.X 

79V lFX.-a0+8»lljTHENPRINTMID*'.F«,II.l 

.■j-: :-::-;=4t»: 

810 XH-INT<XX/25fi) XL-XX-2564XH 

620 POKEHl.XH+2 POKELl.XLHEXT 

825 F0RI-1T035 

830 D;s=DX*1.03 X-X+DX 

S32 IFK>255THEHX=>:-255 POKEVM. 1 

8i5 POKEVX.X 

837 IFX>ti0+8»II>THENPftIHTMID*iFf,Il.l 

840 XX=32*I 

SS0 P0KEW1.32 

895 GOT0S95 

300 END 

1000 REM 

1001 X-X-80IW Y=Y~8*DY SC-SC+1 

1002 POKEMt.32 POKEAl < 23 POKESl .0 P0KEW1, 129 PCtXHl,60 
1005 FOR XD*0TO100 NEXT P0KEW1-12S 

1010 Mjf.Lv...... P.JKEVV.Y 

1020 POKEVS.O 

1025 POKEVB.0 

1026 F0RZ2=1T04 
1030 P0KE53281.2 

1040 FOR Z=1TO200 NEXT 
1050 POKES 3281. 8 
1060 FOR 2-1 TO200 NEXT 
1870 NEXT 
1080 RETURN 

1100 REM 

1101 P0KEW1. 33 POKEAl, 96 POKES1.240 

1102 FOR J=0TO5808STEP50 XH-INT', J/236) XL-J-256«XH 

1103 P0KEH1.XH+3 POKELl.XL -NEXT PuKEWl, 32 

1110 IFSC<MST>tENMS=SC PRINT"*'. TAB". 18>. "MEILLEUR SCORE 

1115 F0RZA=1T03 

1120 P0KE53281.3 

1125 FOR ZZ=1TO40O NEXT 

1130 P0KE53281.14 

1135 FOR ZZ-1TO400 NEXT NEXT 

1140 P0KE53281.8 

1150 RETURN 

1200 REM 

1205 DI-54272 

1210 FOR 1=1 TO 38 

1220 POKE1104+LI+I.5 P0KE1 104*1. 226 NEXT 

1230 POKE1104+DI-5 POKE1104,23b 

1240 P0KE1143+DI.5 P0KE1 143.251 

1258 FOR J=l TO 21 

1260 POKE1104+40*J-+DI.5:POKE1I04+40»J,97 

1270 P0KE1143+4e»J+DI,5 POK.E1143+40*J-225 NEXT 

1280 F0KE13S4+DI.3 P0KE1964.232 

1290 POKE2023+DI.5 P0KE2B23.254 

1300 FOR 1=1 TO 38 

1310 P0KE1984*DI+1,5 PGKE1964+1 ,^8 NEXT 

1320 RETURN 

1580 REM 

1502 PRINT":iUia»lM«*»«»***«**«»****«4«*««*««*«*#t**" 
1505 PRINT"I0»I* *" 

1510 PRINT-IMI* IL S'AGIT POUR LA VOITURE *" 

1520 PRINT"IM*B ARRIVER JUSQU'RU DRflPEHU A *" 

1530 FRINT'lMWUflnlER EN EVITflNT LES OBSTACLES »" 
1540 PRINT-IWK *" 

1545 F0RH=8T062 REHDO POKE12352+N,0NEXT 
154^ POKEV+21, 1 POKE2040.193 P0KEV.24 POKEV+1. 140 
1560 PRINT"I»M« A VOUi, DE LA PILOTER 1 *" 

1570 PRINT"I»M» -" 

1580 PRIHT"«M* VOUS CH0ISISSE2 LE N0I1BRE •" 

1590 PRINT'WMtD OBSTACLES »" 

1600 PRINT'JHM *'• 

1602 FORN=0TO62 REflDQ P0KE12416+N. Q NEXT 
1605 POKEVi-2l.3POKE2041.194 PGKEV+2,170 POKEV+3,50 
1618 PRINT-WM* A L-AFFICHHGE DE ♦" 

1615 PRINT"IB*» SHROUTE A SUIVRE»n •' 

1617 FORN=0TO62 REHDQ POKE 12460+N . Q : NEXT 

1618 POKEVM, 4 

1613 POKEV+21, 7 P0KE2842.133 PUKEV+4,66 POKEV+5.140 
1620 PKINV'IMHVOUS ENTREZ VOTRE SUCCESSION *" 

1630 PRINT"l»t(KD'ORDRES •" 

1640 PRINT">MW *" 

1650 PRINT-IW* APPUVEZ SUR ICH POUR CONTINUER *" 
1655 PRINT-'IBH* *•> 

1657 FORN=0TU62 REHDO PCiKE12544+N.O NEXT 

1659 POKEV+21. 15 POKE2043, 196, POKEV+6, 170: POKEV+r, 229 

1660 PRINT ■ii*i»»*#»». ««*»>»♦*»#*, ***»««***4>*S*<*" 
1670 GETCS IF£*=" , 'THENGOTG1670 

i^;t:c ppi nt ■ , :nj«p»M»n»+t ♦*♦*!♦***»*♦*»«•»»****♦»*••♦♦♦ ■ 

1685 PRIHT"»»»»t f 

1690 PRINT"IM»» CHAOUE ORDRE SE COMPOSE »" 

1700 PRINT-IM* -D UNL LETTPE iC.o-n OholHE :j ♦" 
1710 PRINT " mi* f| D=H DROITE H •" 

1720 PRINT"mH II R-EN ARRIERE n » ' 

1738 PRINT"I>«* l( A=TOUT DROIT>n •" 

1735 PRINT'IMH *- 

1,-48 pp.iwmw. 
1750 PR1NT H I00«I 
1755 FRINT-mi* 
1760 PRINT"|»H 
lit5 PR INT "mi* 
75 PRINT" 



co^ o0 °* 



■-S/P ACCIDENT 



-S/P IRHCE du cadre 




-S/P MODE D EMPLOI 



•PUIS i) UN RETOUP CHARIOT 



TEPMIHEZ VOTRE PROGRAMME EN *" 
1768 PRINT "m**t.NTRHHT UNE LETTRE OUELCONQUE *" 
1730 PRINT"WM*SUIVIE D'UN RETOUR CHARIOT •" 
1792 FORN=0TO62 READO PUKE12288+N.0 NEXT 
1800 PRINT-m* flFPUYEZ SUR ICH POUR COMMENCER I 
1815 PRINT'IHN *" 

1820 PRINT ■ , mi»»*#»*«*»»*»*«»«**«+^. ♦«*••••* + ..* 
1838 GETCJ IFC*=""THENOOTO1830 
1990 RETURN 

2000 REM 

2600 DATA0. 33, 0,0, 127,0 
2610 DATA0,93,0,0,28.0 
2620 DATA0.28.0. 0,62.0 
2630 DHTA0, 62,0,0,62,0 
2648 DATA0.62.0, 3, 127,96 
2650 DATA3. 127-96,3.255,224 




2660 DHTA3, 127,96,3, 127,96 

2670 DATA0, 0.8, 0,0,0 

2680 DATA0, 0,0, 0,0,0 

2630 DATA0. 0,0, 0,0,0 

2780 DATH8,0,0 

2800 DATAe.0.0,7,192.0 

2818 DATA7. 192,8. I.e. 

2820 DATA7, 192,224.7.252,64 

2838 DATA7.255, 224. 7,255.224 

2848 DATA7.255.224, 7.252, 64 

2858 DATA?. 192,224, 1,0.0 

2868 DATA?. 192,0,7. 192.0 

2878 DATA0.0,0,0,8.8 

2380 DHTH0. 0.0, 8.0.0 

2890 DATA8, 8,8.8,8,0 

2388 DfiTA0,0,0 

3000 DATA0, 0,0,0.0,0 

3010 DATA3. 127.96. 3, 127,96 

3020 DATA3, 255, 224, 3, 127,96 

3030 DATA3, 127.96.8, o*-,t' 

3048 LATHtf. o.:. 0,0, 62. 8 

3858 DATA0,62,0.8.24,8 

3868 DATA0,24.0,0,93,e 

3078 DRTA0. 127.0,8.93.8 



3090 DATA0.8,8.8,8.8 

3108 DATR8.0.0 

3200 DRTR0, 0,8,0, 15.128 

3210 DRTA0. 15, 128,0,2,0 

3220 DHTA28, 15. 128.8,255, 128 

3230 DATA31, 255, 128.31,255.128 

3240 DATA31, 253, 128,8,235.128 

3250 DATA2B, 15. 128,0,2,0 

3260 DATA0.15.128.0.15.128 

3270 DATA0, 0.0, 0,0,0 

3280 DATAO.0,0,0,0,8 

3298 DATA0.0 

3388 DATA0.0 

3400 DHT80.0 

3410 DATA0.0 

342B DHTA0,8 

3430 DATA0.0 

3440 DATA0-0 

3450 DATA0.0 

3460 DATA8.8 

3478 DRTA0.0 

3480 DHTA0.0 

3430 DATA0.8 

3500 DATA0.8 



213.0.0.170 
213,0.0.170 
213,0,0,128 



-I* Suite de la page 11 

cabulaire connu surdisquette et la procedure RECUPERE le charge en 
memoire centrale 

DEBUT ne doit etre otilisee qu'une seule tois, lors de la premiere utilisa- 
tion du programme. II ne sera done pas necessairedelasauveravec les 
autres. 

Les fonctions ANGLAIS etFRANCAIS tellesqu'elles sontecrites ci-des- 

sus ne peuvent traduire qu'un seul mot a la tots. Voici FRANC et ANGL 

qui traduisent des phrases completes. 

POUR FRANC :PHRASE 

SI EGAL? :PHRASE f] [RETOURNE fll 



RETOURNE PHRASE FRANCAIS PREMIER :PHRASE FRANC SAUF- 

PREMIER :PHRASE 

FIN 

POUR ANGL PHRASE 
SI EGAL? :PHRASE [] [RETOURNE (JI 

RETOURNE PHRASE ANGLAIS PREMIER PHRASE ANGL SAUFPRE- 
MIER :PHRASE 
FIN 

II est interessant de modifier la procedure EQUIVALENT Ouand le mot 
ne faisait pas partie du vocabulaire, elle retournait ... INCONNU... main- 
tenant, elle retournera lememe mot. inchange. Ainsi. les variables et les 
procedures creees par I'utilisateur ne seront pas traduites par le pro- 
gramme. Mais attention, pour que cela fonctionne bien, il faot que le 
dictionnaire contienne toutes les primitives. 



POUR EQUIVALENT :MOT :LISTE1 :LISTE2 

SI OU EGAL? :LISTE1 [] EGAL? :LISTE2 [] [RETOURNE ;MOT) 

SI EGAL? PREMIER :LISTE1 :MOT [RETOURNE PREMIER :LISTE2] 

RETOURNE EQUIVALENT ;MOT SAUFPREMIER :LISTE1 SAUFPRE- 

MIER :LISTE2 

FIN 

Nous venons de realiser en quelques lignes un traducteur de program- 
mes. Bien sOr, il taudrail encore loi ajouter quelques petites procedures 
qui permettent d'effectuer des corrections sur le dictionnaire mais cet 
exemple montre bien la puissance qu'offre le "traitement des listes" 
Les applications sont nombreoses et souvent tres simples a program- 
mer en LOGO. Remarque2 par exemple qu'un traducteur multilangues 
est a peine plus complique. 

Alain PRE 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM : 

PRENOM : 

ADRESSE : 
REGLEMENT JOINT: 



MATERIEL UTILISE: 
CONSOLE: 
PERIPHERIQUES : 



□ CHEQUE 



DCCP 



OTHELLO 



Ce jeu, apparu il y a seulement quelques annees, est rapi- 
dement devenu le jeu prefere des micro-ordinateurs. II se 
joue sur un echiquier 8 x 8 et le but du jeu est de retourner 
le plus grand nombre de pions de I'adversaire. Pour ce 
faire, on retourne les pions ennemis qui se trouvent entre 
le dernier pion pose et un ou plusieurs pions de la meme Jt: 
couleur. Les pions ainsi captures sont retournes et chan- ^ 
gent de couleur. 

Jean-Pierre MUNIER 



IBB 'NUNIER Jean-Pl€r-i- e 

118 'OTHELLO 

126 'POUR THOMSON TC7 + extension let 

138 ■ ••*•••»*••*•♦••»•«*•**•* 

Mti ' ••• OTHELLO ••• 
158 ' • • 

1*6 'LE 25-13-1983 a SAULXURES 

176 CLEAR. .4 

130 DEFGfi*<0'-i95.I95.0,l£9,66,6B,6,e 

199 0EFCR*'l ' = 195, 195.0.8,60.66. 129. 6 

zoa c*=-«- 

£10 SCREEN?. 8. 5 

220 CLS 

240 DEFINT ft-2 

250 GOTO 1616 

260 ' 

270 FOR J=! TO K<6 

£80 IF K<J)«BV THEN PK«J)KCJJ«BltlK-K<0) 

ELSE NEXT J 

290 FOR J=l TO S:0=MV*D' J>: IF KV<Q>=0 TH 

EN t(K<e)+I>«8tKCe>»K<8)+l 

300 NEXT JiRETUPN 

310 ■ 

320 FOR J=l TO K(0> 

330 IF k<Ji=MV THEN K< J)=KU ) !KC I >»K(KC0 

:KC0 i-l (6>-l ELSE NEXT J 
340 KV<HV>=l:Nk=K> e> 

350 FOR J=l TO 8!8««V»DtJ)!lF KV<9>»0 TH 
EN i t e -1 t"0U GC0)-l ■ 0..[:KV(BJ»2 
360 NEXT J 
370 RETURN 



380 

j ta ■ 



:PK <=nv:\ 



8>=NK:RETURN 



i«0!FOR 1 = 1 TO K ■ 6 ■ : I F K'I' = OP T(K 

I THEN 450 ELSE F=0:FOR J=l TO 8: I 
TiK<I>*»<J -SI THEN 440 

420 FOR K=2 TO 10! 0=(U 1 ) *K«DU > : IF ABS'T 
(0 ■ : THEN 448 

430 IF T<0>=-S1 THEN NEXT K ELSE IF F-0 
THEN ft.<N+l>«K<:l>!B<N+l)»P(J)tC<N+l)=K-l! 
N=N+liFsl!GOT0 440 ELSE BiN> = B>- 1* ■ ♦' 
I N' = C' N>4| -1 
448 NEXT J 
458 NEXT HRETURN 
460 ' 

470 VP=1 = H. 1 ' = 0> I 'iNN=l:T'ft(I < >=S2 
480 FOR J=l TO 8: IF NOT '0' T I AND P<J>>* 
P-J-'THEN 500 ELSE FOR K»l TO ll:B»A<I>+ 
► •[>■ J' 

490 IF T<0'=S2 THEN 508 ELSE VP=VP.l:TlO 
>=S2:H- NN+! >=Q!NN=NN.l:NEXT K 
500 NEXT J:RETURN 

510 T<H<,1>>=6:F0R J = 2 TO NN: T< H< J < >*-S£: 
NEXT J 
520 RETURN 
1008 ' 

1818 B0X<5,5>-'35.28>"«".3 
1828 B0X<I6.3>--3B, 17>"i",2 
1840 ATTRB 0,1! LOCATE 1 6, 1 3. 8J COLOR 1 i PR 
INT"OTHELLO':mTTRB 0.0 
1868 GOSUB 20050:S=-1 

1078 LOCATE 0,2i:CuLOR |:PPINT"Je towtn 
C« 1« pr«»i«r fO-'N ■•■?"! COLOR 6 
1088 A*=INKEV»:UU=PNI>: IF A« = "" THEN 10B0 
1098 IF A*<>"0" ANt> A«<>"o"AND A«<>"N- A 
Ml- A*0"n" THEN 1870 ELSE CLS: IF rt»^"N" 
OR A*="n* THEN S=i:GOSUB 22320:GOTO 3868 

nee gosub 22320 
20oe ' 

2056 IF FC=B THEN GOSUB 15950 

2068 LOCATE 27,I9:PRINT' 

2070 LOCATE 27, 1 9: PRINTCHRJ' 64+AB >+- "+C 

HR*C57-AA> 

2088 IF FC=0 THEN 2320 

2098 S1=S:G0SUB 410!N1=N:IF N'0 THEN LOC 

ATE 2,22!PR!NT"Je Passe"; SPC<:2£ ':BH=9?:G 

OTO 3868 

2188 XM=-1880 

sue ■ 

2128 FOR 2=1 TO Nl : I=Z: S£ = S: FL=1 : C0SUB47 

BtflVaAi Z :GOSUB 270 

2130 ■ 

£140 VN = 0:FOP 1 = 1 ■■■ KCe>:If I ' I > = THEN 

2210 ELSE FOR J=l TO 8: IF T<K<1 
IS THEN 2288 

2150 FOP K=2 TO I8!0=m 1 '*K»D<J>:IF ABS< 
T<B))' 1 THEN 2288 
2160 IF T.O>-S THEN NEXT k 
217B VN-VM*IiB<VN>-<K(I)9I98>+tK-I) 
2180 IF V<K(1>'=1 THEN JC=JC-100 
2190 GOTO 2210 
2280 NEXT J 
2218 NEXT I 
2220 »■ VN-I ■ = » 
.2230 ON V-MV> GOTO 4000,5000,6089,7898-8 




,;, t .,-. .,j(ni. : HHfi.-i 

2248 • 

2250 XG=<89— 4j 

2260 JC=9 

Zi re GO UB 23970 

2289 ■ 

2298 IF XG-XM THEN ':w=XG: BM=A> Z ■ = B I =1: UN 

2398 rlV=A(2>:G0SUB 390:S2*S:COSUB 510 

2316 NEXT 2 

2326 GOSUB 22186 

2336 S2=S:I=BI:FL = 1:G0SUB 4?0:HV=a.BI '-C 

OSUB 326 

2340 PT*PT*VP:PJ=PJ-iVP-l> 

2350 GOSUB 22340 

2368 ' 

3000 ' 

3050 GOSUB 223B0 

3060 GOSUB aEB0B(TY-K(8>!TZ*K<l»aOCATE3 

4, I9IPRINTQ**" -+0* 

3870 LOCATE 33,£3=PRINT" ";:LOC 

ATE £3,25iPRINT"Tor> jeu. ..-;: GOSUB 22190 

MF VH-99 THEN FT=|:GOTO 3120 

3988 k<8> = lJK<l'=Vf1JSl = -SiG0SUB 410:IF H 

=8 THEN LOCATE3,23:PRINT-C« coup n'est P 

as valable*;:GOTO 3070ELSE 1=1 :S£ = -S-:FL = 

-l:G0SUB470 

7090 I.0SUB 22B80iKCe>*TYiK(l)-T2 

3100 NV=YH:COSUB 320 

3116 PT = PT-<VP-1 <:PJ = VP»PJ!U.N=6 

3126 IFUH'.>0 AND FT=1 AND VN(>9 THEN FT = 

9:L0CATE3.22:PRINT"Tu as ";vn;- posstfcil 

i'e-s> de jeu.*;:PA=8:G0T0 3870 ELSE 313 



3130 PZ=PT*PJ:IF P2- 40 THEN VH=2 ELSE VM 

3140 GOSUB 22340:GOTO 2650 

3150 ' 

4060 ' 

4060 Cl=8:C2=0:CJ=e 

4070 FOR Ll=l TO 8 

4080 IF V<HV + D<.LI ■ ■ 3 THEN 4288 

4090 IF V(NV*D(Ll)X>e THEN 4268 

4100 FOR L2=l TO 30 



l CJ=INT<I 



fL2>. 



4128 IF H<L2>=99 THEN 4200 

4130 IF NV*D(L1>=CJ THEN 4150 

4140 NEXT L2 

4150 FOR L3-7 TO 2 STEP -I 

4166 IF T(HV*(D*L1>«L3J><>0 AND C I =9 THE 

N 4199 

4178 Cl-CI+UIF T- HV*D(L1 J«L3> = S1 THEN C 

2-C2+-1 

4196 IF C2-5 THEN JC=JC-120:LOCATE3,22:P 

RINT-C'sst un *Mblt ' • " t SPC 'SB > 

4288 NEXT LI 

4219 JC-JC+13 

4228 GOTO 2258 

5009 ' 

5960 IF P2<42 THEN JC=JC-40: GOTO 2250 

5979 JC=JC-19 

5080 FOR Ll=l TO 8 

5090 IF V<nV'D<LI> 'OITHEN NEXT LI 

5180 rtl=MV*D<Ll> 

5118 IF T<AI)<>0 THEN 5420 

5126 FOR L2=l TO 3 STEP 2 

5138 IF V(A1*D<L2'>' >3 THEN 5410 

5140 IF T<A1*D(L2))<>0 THEN 5550 

5156 IF TlAUD<L2>»2> = -Sl THEN 5168 ELSE 

5566 
5168 IF T..A!*t" l.-: • " THEN 5570 
5179 CP=0 

5188 FOR L3=0 TO 4 

5198 IF T<Al»Da2>«'L3*2)) = -Sl THEN CP=C 
P-l 

5286 NEXT L3 

5210 IF CP-4 THEN JC-JC*' 
5220 IF CP<>5 THEN JC=JC-15 
5230 IF CP=5 THEN JC=. 
5240 ' 

5258 FOR L4=I TO 30 
5260 Cfi=INT<PI<L4 I 108 
5278 IF ntL4>=99 THEN 5406 
5280 ' 

5290 IF C0=T(AH-t"L2'.' THEN JC = JC-24 ELS 
E JC=JC*20:GOTO 5488 
5300 FOR L5=l T08 STEP 2 
5310 IF V<NV*D(L5> '5 THEN 5388 
5320 IF CA 'T<MV*D(L5>) THEN 5388 
5336 FOR L6=l TO 5 

5346 IF T<HV*D(LS>«L6 =S1 THEN 5378 
5356 ' 

5368 IF T<nV*C>tL5:>*L6 .. = -SJ THEN JC = JC*10 
5378 NEXT L6 
5388 NEXT L5 






5398 NEXT L4 

5486 ' 

54I& NEXT L2 

5420 IF t. «i 51 then 5528 

.. .■ ■ 

5440 roft .i:. 

5450 IF '.-■ NV»D' .. . =-t AND V' NV*I I 

7 -N[. Ti "■.'-[■■ LI'—fl «ND T. MV + C"L]-I ■ ' = 

THEN JC=JC»I8 

546J [f UHV*D LI ■ = : «N[' ViHV*D".Ll-l ■ '= 

4 «N[ t NV*D(Lti -6 «NE' T(«V*DcLl-l))«8 

THEN JC-JC*I9 

5 „7 8 [ F V«flV»6«LI =1 then CS-AI ! I 

ELSE 5496 

5430 IF T.nv-D'Ll-1 ■ > = =■! «N[' T.MVtt-'rj.. 

=S1 THEN JC=JC-30 

5498 NEXT LI 

5300 COT ' 5580 

3510 ' 

5528 FOR Ll=l TO 8 

5538 IF V.NVC'vLl ' ■ 5 ANt< T i dV*D> LI " = S1 

THEN j:=JC»" 

=54» NEXT LI 

3338 JC-JC-12:G0TO 55B0 

5560 JC=JC-4:G0T0 5560 

5578 JC=JC-20=GOTO 55B0 

5588 GOTO 2250 

6606 ' 

6666 IF PZ;33 THEN JC =JC -28: GOTO 6430 

6678 Dl=0tD2=8 

6886 FOR Ll-I TO 3 STEP 2 

6896 IF V<HV»0'L1' •=! THEN A1»NV+D<LI 

6188 IF ViNVMI ■ '=4 THEN 83-NV+DCLI it 
R=L1 

6118 NEXT LI 

6126 FOR L1=I TO VN 

6138 IF rtl=INTi«>Ll- 188' THEN JC=JC-58= 

GOTO 6430 

6140 NEXT LI 

6158 IF TA! i a THEN c.300 

6160 FOR Ll=l TO NN 

6176 IF V(H<Ll)>-2 THEN JC=JC-40 

6186 NEXT LI 

6196 IF ABS' T.h3*E'1 ■ • = ! THEN H=M,r ■ ;■* ■ 
:D2=D2*1!G0T0 6190 

6260 IF D2<> 4 THEN b£60 

6210 FOR L 1= I TO Nl 

6229 IF A<L1)-A3+D1 THEN 6246 

£238 NEXT LI:JC=JC-16 

6248 IF A8S(T<A3+DI*D(DR)))-I THEN JC-JC 
-30J&OTO 6438 

6258 JC = JC*6:&DTr. f430 

6260 IF D2=3 THEN JC= JC*18: GOTO 6438 

6278 IF D2=5 THEN JC=JC*I0: GOTO 6430 

6280 IF D2=6 THEN JC= JC *20: GOTO 6439 

6290 JC=JC-20:GOTO 6436 

6300 IF TCA1 i = Sl THEN JC= JC + 20J GOTO 6436 

6310 IF T<A3»0 THEN JC = JC-18!G0T0 6438 

6328 IF Th3'=S1 THEN 6368 

6338 &I"Dl+0tDR>tD2-D2*] 

6340 IF T<«3*D1)»-S1 THEN 6338 

6350 IF T.fl3*t>l>=0 THEN 6416 ELSE 6398 

6369 DI=DltD<DP>:D2=D2*l 

6370 IF TiA3*Dl =-Sl THEN 6410 
6380 IF Tfi3«M=31 THEN 6360 

6390 IF D2=6 THEN JC=JC* 15: GOTO 6436 

6460 JC=JC-15:C0T0 6436 

6410 IF t>2=4 THEN JC = JC*50 = GOTO 64?0 

6426 JC=JC*16:G0T0 6430 

6436 GOTO 2258 

7066 ' 

7668 FOR Ll-1 TO 3 STEP 2! IF V<MV*D<L1>> 

= 3 THEN Al = NV + Dai >*2i IF T<A1)08 THEN J 

C=JC*7:GOT0 7116 

7878 NEXT LI 

7080 FOR Ll=l TO NN 

7090 IF V(H(Ll)>-£ THEN JC=JC-46 

7108 NEXT LI 

7118 IF PZ<36 AND JC'-l THEN JC«JC*7 

7128 GOTO 2258 

8808 ' 

0868 FOR Ll=! TO 8 STEP £ 

SJ878 IF V'NV-D'Ll ■ > = 4 THCN CS=HV+D<L1 )S6 

OTO 8990 

8080 NEXT LI 

BB9B IF T<CS>-6 THEN JC-JC-12 

8100 IF T(C2>-5I THEN JC-JC'5 

81 16 GOTO 2250 

9800 ' 

9060 FOR LI=1 TO 8 STEP 2 

9070 IF VnV'Oai ■ '=4 THENDl=NVtD(Ll> 

9880 IF ViNV+t". LI ■ ' = 6 THEN H4=HV*D<L1> 

9090 NEXT LI 

9100 IF T(DI'i = AN[> T(A4) = THEN JC = JC-1 

2: GOTO 9120 

9110 IF T<D1)=S1 THEN JC=JC»10 ELSE JC=J 

E+5 

9120 GOTO 2230 

10000 ' 

18060 IF P2:26 THEN JC=JC*5iG0T0 10110 

16070 FOR Ll-1 TO 8 STEP 2 

16080 IF V<HV*D<l1 >>=6 THEN D2=NV*D<L1> 

18896 NEXT LI 

leiee if t<d2>=si then jc=jc»4 else jc=j 

C-8 

101 10 GOTO 2256 

15896 ' 

15650 N=0:FOR 1=1 T0I2:IF TCDBi 1 ■ ■ B TH 

EN 15999 ELSE F=9:F0R J=l TO 8:IF TIDB'I 

• [■' .)■ ■ -S THEN 15080 
15666 FOP K-8 TO IBI8-M< I >*K»< J>a IF AB 
&(T(fi>) 1 THEN 15886 
15878 IF T'0'=-S THEN NEXT K ELSE IF F=0 



rHi n 



• 1 i*d 



• I ■ 



CN+I i 



1!M = N*|:F=!:G0T0 15030 EL?E B<N..=B-N--1 

J>tCCN>-C<N)+l -1 

15838 NEXT J 

15898 IF HOI THEN NEXT 1 1 FC = 1 1 RETURN 

15160 BN=h. 1 >:BI"liPETURN 

26080 ' 

20050 mm T<i8ee>.Ktiee),D<8),pc8),s(>(< 

8',KV(iee>.A'30 .1 

26868 DIN V< 100 ■■ D6- 12. ■ .M ■ 8 ■.H(32),N<: 



XT I 

20106 DATA -18.1--?. 2. i,4,u.s.;.- 

. 1 1.128 
20110 FOR 1*0 TO 12i READ K<1>»HEXT I 
26126 DATA 12,33,34.43,35.53.36.63,66.56 
.65.46,64 

20136 FOPI=!TO180:IFT' I ■ 6THEN> v. I .= :E l 
SEIFI=330PI=340R]=350PI=360PI=460RI=560R 
]=BBOPI=650R!^640PI=630PI=530PI=43THENtv 
'I ' = 2ELSEHV< 1 - = 
20140 NEXT I 

20150 FOP 1=1 TO 4!F0R J= 1 TO 8: READ BD' 
I.J'iNEXT J, I 

20160 DATA 11,12,13.14,15,16,17.18,11,21 
.31.41,51.61,71,81,81.82.83.84,85.86.37, 
88, 18.23, 38, 48, 58,68. 78,88 
20170 FOP 1=8 TO 9 STEP 9SF0R J=8 TO ":T 
•: I»l0*J'' = 2:kV' ]«I0+J< = i:NEXT J, I 
20180 FOR 1=18 TO 98 STEP I8:T' I >-2tl 
' = i:T..l+9;. = a:KV> l+9/ = l:NEXT 1 
20198 FOP 1 = 1 TO l£:OB-:l>=*< I .:NEXT 1 
28288 V> 11 > = l:V. I 6 ■ = I : V- 88 > = I : v. SI - = l: V> 
22 >=2iVl27 1=2: V 77 >=£!V< 72 '=2: V. 1£.=5:V> 

21)>3iV(t7>-3iV(28>*3tV(78»3tv<87»3tV< 

82>=3lVt71>>3 

26210 Vi3I«=4:V- 13> = 4:V I6> = 4: V- 38 - = 4s V< 
68 ' = 4: V' 86) =4: V.83' = 4:V'6I > = 4: V'32i=5: V' 
26>-3tV<37)a5!VC67)=5»V<76J-5«V<73>«5iV< 
23'=5:v<62)=5 

£9£28 V'41 ) = 6:«-5I > = 6:V- 14- = 6:Vi 15 ' = 6: v. 
38 »61VC85)*6iVC&4)*6iV<42»>7(V< 
52i*7iV<24>=?:V<25>=7!V<47>=7:V<57.=7:v. 



-'- -- 



<74) = 



21818 FOR »'l Ti? 38:n = INT-RNDf 12*1 ■ :k 
2=INTi RND*< 12*1 • ■: IF K]*8 OR H2 = 8 THEN 2 
1860 ELSE KK-K(Kl)lltCKI)«K(K2>tl 
NEXT K 

21866 FOR k = l TO 12iOB<K ) = k >. I • : NEXT I 
21878 RETURN 

22886 B0Xi25,3'-'39.21>CHP». 127), 4 
22818 BOX. 25, 18) -(39, 15'CHR». 127 -.4 
22929 LINE<32.3:'-i 32, IS.'CHRC 127>.4:PSET 
<32, 19>CHRI' 127)tP6ETC3£,28>CHR>< 127 ■ 
22838 kX=0l LOCATE 6, 3: COL0R6: PP1 NT- A B C 
D E F G H'liFOR D1=I TO 8:L0CATE 2,6+KX 
:PRINT9-D!;- ";:FOP D2=l TO B:0=D1*16+D2 
22846 IF T(Qi=8 THENPRIMT" ";ELSE IF K 
B)*l THENCOLOR 3tPF*IHT&R««);CIW«(32);iC 
0L0P6ELSE IF T ' Q ■ = - 1 THENC0L0R5: PP1 NTGRf 
■ I 'JCHRK32 >j SC0L0R6 

£2858 NEXT D2= k"X = KX*£: NEXT [■ ] : BOX i 44 . 42 :■ 
-' 172.178),£:F0R 1=1 TO 7: L I NE ■ 44. l *i i . 4 
£.-.44.16*I,179>,2:LINE.44,42-t-16iI ■-■ 172 
,42.16»I),2:NEXT I 
22668 RETURN 
22979 ' 
2£989 ' 
££189 ' 

££U6 AA = FIX(BM I e ■ '- AB = BM- 10Ihh: IC=«: ID= 
9 

22148 at=fi>;>.:at ■ ie-:BT=«.; -i8»at 
22156 LOCATE 3, 2£: PR INT " J* t«s («..": CHR» 
(64»BT)*- "*CHR«(57-AT»:SPC<28> 
2£I7B RETURN 

22130 AA=FIXi-BN'18':AB = 6n-184HH:L0C»TE 7 
,23tPRINT"Je joue...-;CHPS'64*AB.*" "*C 
HR«<57-AA>:IC=0:1D=8:RETURN 
22190 e*=INk£Vl:H.i = PND: IF Of=-- THEN £21 
96 ELSE YP1« = 0«:L0CATE3,23:PPIN1 ■ 
£2269 IF ASC'O*'=80 THEN 22229 
22210 IF ASC(0I>>72 OR HSC.OO 64 THEN 2 
£196 

££££0 L0CATE£5,23:PPINT0»:" ": 
22230 0«=INkEYl:lF 0»="- THEN 22230 ELSE 



irn*. 



: tr.it 



22248 LOHATE 25, 23: PR IHTOfi : LOCATE I 8 . 14 : 
FOR UC=0 TO 20 :PRINT- "UMEXT HC 
£££50 * 

2£268 IF YH*="PO ,p THEN YN = 99iG0T0 2£:i0 
£££76 YN=l6«<9-VAL'R]GHT*<Yf!*, 1 >*>: IF YN 
• 18 u& ■,■« -a« THFN ???9ft 

22880 YL-ASC'LEFT*. -n», I -64=1F YL<1 OR 
YL,» im(.m 2a<f99 ELSE tn=YN*YL:G0TO ££30 
B2298 LOCRTEj.SaiPflHI-Tu (it en dehor* 
au cadre"; :GOTO 3070 

22380 IF TROB THEN lOChTE 2. 23: PPINT "Ca 
se deja occuieec mi-;:GOTO 3876 
£2310 RETURN 

££3£6 IF S=-l THEN C J* = GR«^8 • : CT* = GRt ■ 1 i 
££336 IF S=l THEN CJt»GR«(l >cCT**CR«<6) 
2£346 LOCATE 27,5:C0LOR 4-S:PRlNT-TH0N": 
LOCATE 23,8iATTRBl, 1 : PPINTCTt: L0COTE27, 1 
3:PPINTUSINGC*iPT:ATTRB0,8 
£2358 LOCATE 33,5:C0L0R 4t&: PP INT - JOUEUR 
': LOCATE 35,8: ATTPB1, 1 : PRINTC Jl : L0CATE34 
, !3:PRINTUSINGCttPj:«TTPB8.8 
22358 L0CATE26, 17!C0L0R2:PPINTC'EPNIEP 
C0UP-:COL0R6 

22368 IF YH=99 AND BN=99 THEN 25050 
22376 IF PJ*PT*64 OR PJ=6 OR PT=8 THEN £ 
5858 ELSE RETURN 
£2386 ' 
££398 RETURN 
£5000 ' 
25010 CLS 

25050 GOSUB2£060:CLS!IF Pj: PT THEN LOCAT 
E 25,12:C0L0R£JPPINT-Tu as sa^ne par " ; P 
J!* a *;PT;:PRINT*Toutcs aes telic 
n* • '-:GOTO £5098 

£5666 IF P.KPT THEN LOCATE 25.12H 
i:C0L0P3:PRINT-.'*ai qagfte. YOUPP 
r ";PT;- a "; Pj: ATTBB8,0:PPINT ■To^ 
s condoleanccs ":GOT0 £5896 
£5070 L0CATE25,12 :COLORI : PRINT "Noi 
■cs e. -aequo ,au«c "iPTi " points* 



25168 A*=INKEYI!!F Ai=-" THEN 25100 
25119 IF LEFTHAi. l' = -0" THEN RUN 
£51 £0 IF LEFT* i Ht. 1 - = '■«" THEN PRINT' 
evotr i.Et a bientoT. ":END ELSE £56? 



SYSTEME LINEAIRE 





24 RRCL 83 


« r 


66 GTO 15 


87 USE 87 


188»LBL 84 


Voila une maniere courle et rapide de resoudre n equa- 


25 XEO 83 


46 ♦ 


67»LBL 14 


88 GTO 11 


189 -it- 


tions a n inconnues, en un mot un systeme lineaire avec la 


26 1% V, 


47 RCL IHTJ X 


68 RCL IHD 81 


89«LBL 82 


iie FIX 9 


methode dite de Jordan et Gauss. Ce programme est sur- 


2? GTO 89 


48.LBL 12 


69 RCL INI) 82 


98 RCL 88 


111 BRCL 81 


tout a utilisercomme sous-programme car il ne verifie pas 


28 "c" 


49 ST»' IHD V 


78 « 


91 1 


112 -r=- 


si le systeme est solvable. 


29 BRCL 81 


58 ISC V 


71 ST- INS 83 


M » 


113 FIX 4 


Marc DEHAN 


38 XEO 83 


51 CTO 12 


72 1 


93 5 


114 BRCL IHD 82 


31 ISG 91 


52 RCL 88 


73 ST- 91 


94 18tX 


1 15 PROMPT 


Exemple : soil a resoudre 


32 GTO 91 


53 STO 82 


74 ST- 93 


95 / 


116 ISG 82 


2x+6y-3z- 12 


33 9 


54 RCL 88 


75 USE 95 


96 9.9 


117 ISG ei 


3x+2y + 9z- 1 
x+ y + z= 
Introduire dans cet ordre 2 ; 6 ; - 3 : 12 : 3 . 2 etc 


34 STO 88 


55 STO 86 


76 CI" 14 


97 * 


118 CTO 84 


35 RCL 99 


56,LBL 13 


77«LBL 15 


98 RCL 89 


11? GTO 82 


Lorsqu'un coefficient est egal a il suffit d'appuyer sur R/S 


36 » 


57 RCL 84 


78 RCL 99 


99 * 


128,L8L 83 




37 STO 84 


58 STO 81 


79 1 


188 STO <v 


121 ■!■«?• 




38*LBL 11 


59 RCL 97 


56 • 


181 RCL 99 


122 9 


2831 84.12 86 STO 88 12 • 18 RCL 82 


39 RCL 94 


68 STO 85 


81 STt 92 


182 3 


123 PROMPT 


ei»LBL -LIB- 8? STO 87 13 STO 81 19 STO 93 


49 RCL 87 


61 RCL 82 


82 DSE 96 


183 19tX 


124 STO INt 84 


82 -RPNG^- 88 3 H STO 82 28«L6L 88 


41 - 


62 * 


83 CTO 13 


194 / 


125 ISG 84 


83 PROHPT m 18tX 15 9.9 21 -a- 


42 RCL 84 


63 STO 83 


84 STt 94 


185 1 


126 .ENS. ■ 


M F l x 8 18 -' 16 STO 84 22 PRCl 81 


43 3 


64 RCL 81 


85 1 


186 ♦ 




85CF29 11 1 17 , LBL 81 23 . K . 


44 18tX 


65 X=Y? 


86 ST» 88 


187 STO 81 





Ytf 



AA 




ETUDE DE FONCTIONS 



AH !, ENFIN DE BELLES COURBES SUR LE TEXAS EN 
VERSION DE BASE AVEC CE PROGRAMME TRES COM- 
PLET D'ETUDE DE COURBES. 

J.MDELPERIER 

Mode demploi : 

Les Commandes : 

- Uechelle la valeur "1", inlroduite. donne la taille normalede rapport 1 
la valeur 1000 donnera par exemple une courbe au 1/1000eme. etc. 
L'etuded'une nouvelle fonction doit etre debutee a uneechelle tres pe- 
tite pour en cerner les variations globales et recentrer, si besoin est. la 
courbe 

Un grossissement peut etre obtenu en introduisant une valeur de rap- 
port inferieure a 1 mais elle doit toujours etre superieure a 0. 
Exemple : Echelle 0.001 (tapez 0.001) 

- X maximum et minimum : fixe I'intervalle des valeurs deXfaisantl'ob- 
jet de letude Les deux valeurs introduces doivent rester dans I'inter- 



valle de Oa 256 en tenant compte du changement de coordonnees de 
I'origine. 

Exemple : X max 100 
X min -50 
dans ce cas I'origine devra etre deplacee sur I'axe des X d'au moins 50 

- Coordonnees de I'origine (0.0) : 

Le deplacement de I'origine permet de recentrer la courbe verticale- 

ment sur le milieu de recran en agissant sur la coordonnee verticalede 

i'axe des X. 

Exemple : Coordonnees (0.0) : 0.56 "enter" unedroitecorrespondanta 

I'axe des X se trouverait alors rehaussee de 56 points. 

De meme, pour etudier une fonction sur des valeurs deXhorsde I'inter- 

valle0a256ilsuffitdedeplaceroriginede telle sortequel'intervalle des 

valeurs desirees corresponde a I'intervalle visible sur recran. 

Exemple : Pour X de -100 a 100 il convient d'entrer Coordonnee (0 0) 

100,0 

Pour X de 200 a 400 il faudra entrer Coordonnee (0,0) : -200.0. 

Exemple combine : Pour etudier des valeurs de X de 200 a 400 en re- 

haussant la courbe de 50, il conviendra d'entrer Coordonnee (0.0) : 

-200.50 

- Density : La densite correspond au nombre de points affiches par va- 



leur deX. - valeur >0 

1 correspond a i'affichaged'un point pour une variation des valeurs deX 

de trois points. Ce mode de graphisme allege sera choisi de preference 

pour debuter une etude de fonction en raison de sa rapidite d'execu- 

tion. 

1.5 donne I'affichage d'un point pour une variation des valeurs de X de 

deux points. 

3 donne I'affichage plus dense, avec un point par valeur entiere de X. 

- mode compresse : valeur >0de 0,000... n a 1 grossissement de 1 a 
1000 compresse la courbe sur I'axe des X. 

Ill - Le Lancement du programme : 

- Sequence a respecter : 
tapez ; EDIT 100 -Enter- 

DEF F (X) - (votre fonction) -Enter 
RUN -Enter- 

- Deroulement du Programme : 

Apres quelques secondes d'initialisation 
L'ecran change de couleur. 

• Si l'ecran est noir, tout est normal la courbe commencera a se dessi- 
ner, apres quelques secondes. en blanc , a vous devoir les corrections a 
apporter lors d'un prochain affichage. Le trace s'arretera tout seul si la 
courbe sort de 1'ecran ou si X a atteint la veleur maximum que vous lui 
aurez prescrite. 

Pour refaire un essai appuyez sur une touche quelconque. 

• Si l'6cran devient rouge, sachez que I'etude de votre fonction com- 
mence par des valeurs negatives. Pour vous permettre d'agir, la courbe 
symetrique par rapport a I'axe des X est affichee. 



le CALL CLEAR 



21 REM CONTROL E SORTIE DECRmN 



DEF P(X)«10O.COS(X/l01*CDSI 


X+lS/Sl 


REM 




REM 




REM TITRE 








REM 




CALL CLEAR 




PRINT - ETUDE DE' 1 :: 




INPUT -ECHELLE -"sE 




INPUT "X MAXIMUM-";IM 




INPUT "X MININUM-":X 




IF KN-X>296 THEN IOV 




INPUT "COORDONNEE (0,0)-" :1 




IF 1 4 XII* XI > l 23fa»*(IX*XIK01 


THEN 1 1 2 


INPUT "DENSITE (D>01-"iDE 




IF DE'-O THEN 111 




INPUT ■'MODE COMPRESSE 


M>0 



i E— E 

> FOR 1-1 TO 16 

' CALL COLOR 11,2,71 

I NEXT I 

1 GOTO 138 

i FDR 1=1 TO 16 
CALL COLOR! I. 16,2! 



35 REM INIT1ALI! 



THEN 130 



-c\ Q 



9/A* 



I CALL SCREEN (7) 
• OPTION BASE O 
> DIM A»i 1591 ,F<»'.4, l<>i ,C'B> ,Di 159 



; etui 



■'mOOiii.i.hhXm... '" 



I REM 
I REM 

. REM OXES X ET V 
' REM 
I REM 
' CALL CLEAR 

I CALL CHAR(33."O00O0OOOO00O00FF 
CALL CHAR<34, "BOBOBOBiJBCiBOaiJao 
: CALL HCHAR<24. 1,33,32) 
[ CALL VCHARI1, 1,34,24) 
I REM 
5 REM 

s REM CMARGEMENT DES MATRICES 
T REM 



e^ vC 



sv 



tf& 



56 REM 

39 D<32>-1 

60 D(33)-l * 

61 0(341-1 

62 OATA 1,2,3,4,1,2.3.4 

63 FOR 1-1 TO B • 

64 READ C(t) 

65 NEXT I 

66 DATA B, 4. 2. 1,9,3,3, 1 .A, 6, 2. 3, B. 7, 3, 3. C, 4, 6,3, D, 3. 7.3. E, 6.6, 7, F, 7, 7, 7,8. C, A. ' 

67 DATA 9,D,B,9,A,E,A,S,B,F.B,B,C.C,E.D,D,D,F,D.E,E,E.F.F,F,F,F 
66 FOR ZY-I TO 16 O 

69 FOR ZX-1 TO 4 

70 READ B*<ZX,ZV> 

71 NEXT ZX 

72 NEXT ZY 

73 CALL SOUND<30,380,2> 

74 ^A»-■■0123456789ABCDEF , ■ 
73 CO-33 

76 XV-X 

77 REM 

78 REM 1 t> rt II 

79 REM DEBUT DE SIMULATION ft o\>\ 

80 REM 
Bl REM 
B2 X-X*I3/DE) 

83 XV-XV*(3/IDE«MI ) 

84 V-INT(FIX)('E)»Y1 
83 REM 
B6 REM 

87 REM SSPRGM DE TRAITEMENT DES CARACTERES EN "BIT-MAP" MODE 
80 REM 

B9 REM 




90 i 



ZT-INTC 
!X-1N 



M 



♦ 1) 



♦2 GOTO 210.195.210,210 



93 ZY-INTIY-1B-Z 

94 ON INT<ABStXV>/XM>*lNT<n 
93 CALL GCHARl24-ZT,ZS*INTd 

96 ON D<Z)+1 GOTO 199,197 

97 2 -CO 
9B CO-CO* 1 

99 ZB=ie-(C2»ZY>*l-INT( (ZX-D/4) ) 

200 Z9-P0S(ZA»,SEG*(A»(Z) ,18.11 , 1) 

201 A»<Z)-SEG»IA»(ZI. l.ZS-1 )!.B»<C'Z<) , Z9) &SEG* <A» ( I > . Z8* 

202 CALL CHAR(Z.A*tZI > 

T03 CALL HCHAR(24-ZT,ZS->INT< 1X1*71/8) , Z) 

204 GOTO 1B2 

205 REM 

206 REM 

207 REM FIN D'EXECUTION DU SORTIE D'ECRAN 
20B REM 

209 REM 

210 CALL KEY<5.K,ST) 

211 IF ST-O THEN 210 

212 CALL CLEAR 

213 PRINT "TAPER <<EDIT 100>>"i t "PUIS VOTRE FONCT ION" j "■: . 
■:<ENTER>>":i"PUIS <<RUN>> " 

214 PRINT s:::::::: 

215 END 



ANTRE DE JANDS. 



Tous les aventuriers (de 1 a 8) se sont donne rendez-vous 
dans la case 0,0. 

C'est aujourd'hui le grand depart avec, peut-etre, au ter- 
me d'une bien perilleuse aventure, la fortune du sorcier 
JANDS que chaque aventurier croit pouvoir localiser et 
capturer. II se cache dans I'une des 900 cases de la grille (0 
a 29). 

Frank DEPLAGNE 

Pour jouer. vous introduisez les coordonnees de la caseou vous voulez 
aller On ne peut se deplacer que d'une case a la fois, dans 8 directions. 
Au depart, chaque joueur a 12 PS (points desurvie). Quand le joueur a 
introduit les coordonnees de la case oil il veut aller (il peut jouer ceiles 
oil il est deja), I'ordinateur fait apparaitre : 

- soit "code" sans rien d'autre : il ne vous arrive rien. 

- soit "code" avec les symboles suivants : 
E Impossible d'entrer 

=» Vous pouvez entrer 

>r Vous pouvez entrer si vous avez au moins 

- Si vous etes deja dans cette case 
O Alors vous decouvrez 

(R) Vous pouvez rejouer 
PS Point de survie 
Fiole de soin 

Anneau magique 
C Clef 

? Epee 

! Feu 

1 Torche 

BT Bouteille de "Troll" pleine 

B Bouteille vide 

( Arc 

t Fleche 

Ensuite apparait la nature du terrain ; 

P (plaine). vous d6pensez 1 PS en entrant 

F (foret), vous depensez 2 PS en entrant 

M (montagne), vous depensez 3 PS en entrant 

Lordinateur affiche alors "monstre" ou NB : PS "monstre", pour que 
vous rentriez dans la case que vous avez choisie (vous devez depenser 
autant de PS qu'il est affiche). Lordinateur demande si vous voulez re- 



LIST 15 
16 PRT "-L RNTRE 5 

E !MK-":VS; 
26 X=IHT (Rfllil'TS: 
:¥=IHT (RRBU36 

urn 

21 z=x»y 

22 1KF "NOIME :-. 
JOiiEURS'.O 

23 FOR K=!l 10 ih 
18) 

24 fKK)=12:NEXT K 

32 0=0H 

33 FOR KM 10 

34 PRI "iOUEUF: ":!: 
;• POSI "iB(K» 



35 IF AtlWXJiPIt 
T "PERM": GOTO 
239 
46 IBP "COCRDOHHEE 

X",X 
41 INP "C00RD0HHEE 
Y",Y 

43 PRT "VOUS FlVEZ 
":»il8«;" PS" 

44 IF BBS (INT B(K 
J-X))l THEN 34 

45 IF BOS ((FRfIC R 
<.K)*188H»1 T 
HEN 34 

49 R(K)=XtV/iee 
56 IF «2S:PRT "VO 



FX 702 P 



jouer seulement si un monstre apparait et si vous n'avez pas assez de 
PS pour le combattre On ne peut jouer plus de 3 fois. S'il n'y a pas de 
monstre, I'ordinateur vous indique combien vous gagnez de PS en en- 
trant dans la case de votre choix Si I'ordinateur ecrit "Village", vous ga- 
gnez 5 PS. De toute (agon, I'ordinateur vous Indique dans quelle direc- 
tion par rapport a vous se situe JANDS. 
Vous perdez la partie quand vous n'avez plus de PS. 
Si vous ne pouvez entrer que sous la condition d'avoir certains objets 
que vous ne possedez pas. vous passez votre tour ou vous rejouez. 
On ne peut rejouer plus de3fois. mais les (R) qui apparaissentdanscer- 
tains codes ne doivent pas etre comptabilises. 
Les joueurs doivent comptabiliser eux-memes leurs objets. 
Ouand quelqu'un gagne, la partie se termine Mais si un joueur a perdu, 
quand arnve son tour I'ordinateur affiche "perdu", et en appuyant sur 
| cont il passe au suivant, 
Avant de jouer, tapez DEFM 2 
Ce programme fait 1434 STEPS 

II a ete enregistre 3 fois consecutives a 3 niveau* sonores differents sur 
une platine cassette TECHNICS M6 sur la vole Left 
Cet enregistrement dure 2 mn 40 s 
II a ete enregistre par la fonction : SAVE i 9 sans code. 



US ETES SORT IS" 

I80TO 46 
68 IF V>29!PRT "VO 

US ETES SORTIS" 

:60T0 46 
?6 IF fl«0=Z;PRT i 

PRT "6R6NE J6UE 

UR "\V." a "iO 

I60T0 236 
86 IF X>IHT Z;HS=" 

D":G0TS 82 

81 Ht="E" 

82 IF WFRRC Z«188 
!H*='S"+H«:B0TI1 

IBB 

83 Ht=»r*Nt:R(lS/ 
=6 

168 J=IST (RRNIt841 

:(="" 
181 St=IHT (RBHttlS) 

: H=IHT (RRHI«4) 

i IF H=6THEH 16 

1 
1B2 IF N=l;F»="F":6 

0T0 111 
183 IF rl=2IFS="F":6 

OTO 111 
164 F»="fT 
11! 9=288 

112 IF FRRC (J75)=B 
ISOTO (114t)75> 

113 60T0 C 

114 l="E(R)=0NE FOR 
CE S V OPPOSE ! 
R!"t60TO 6 

115 «="i<Xt.=»4PS" 
:B(19JMI60T0 6 



116l="iiI.!.''"l80T 

OB 
11? I="^ET"!60TO 6 

118 *="iOBT<R).=<> 
C(R)':68T0 8 

119 l="i.0.C.B"iS3T 
OB 

128 t="iJt'.BT":E0TO 
8 

121 !="ijB.<>UH OIS 
EBLI":fiOTO 9 

122 J="»Ot!R).=«4P 
S":R(I9)=4:60T0 

8 

123 t="iOt(R).=OU 
N 0ISERU"!6OT0 
8 

124 $="sitr.«l!7T6!) 
TOO 

125 l="i(>!(R).=iI« 
!()?":B0T0 B 

126 f="i(>!t.=-3PS. 
«RJ":fi(19>=-3:6 
OTO 8 

12? *="i<;!(R)":60T 
06 

128 (="iO(t(R).=<> 
UN OiSERU'tSOTO 

8 

129 t="»V0TRE RRC S 
E BRISE(R)"I6BT 
88 

138 I="a».?(Ri":60 

T6 B 
266 IF RiK)=23.85 T 

NEH 218 
261 IF R(K)=9.1 THE 



N218 

282 IF R«»=l?,27 T 
HEN 218 

283 IP fi(i:>=16.25 T 
HEH 218 

264 IF R!D=2?.2? T 

HEH 218 
2B5 IF R(f0=6 THEN 

218 
2B6 66T6 211 
218 PBT "VILLfiBE'tfl 

(UMKlKfi 

211 PRT "CODE "IttP 
RT "TERRBIH "IF 

212 IF H<S;PRT "HB: 
PS "III: SOTO 215 

213 PRT "HOHSTKE "! 
HilKF "REJOUEZ- 
V00S(0/H)",6f 

214 IF 8»=T THEN 
48 

215 PRT DIRECTION 
"!H$ 

216 IF I«""!1NP "RE 
JOliEZ-VOUS(O'H) 
",6t 

217 IF 61="0" THEN 
48 

228 if n<8:8(ie*K)= 

H(lfl«)*fi'19) 

:60TO 238 
221 flUMMCHW 

-H*H(19)-H 
238 HEXT K 
231 SOTO 32 ■ 







□ QDQD 

QQCD 




Systfeme personnel HEWLETT-PACKARD 41 

Prix TTC 

HP 4IC + module quadruple HP 821 70 Promotion 

Lecteurs de carte HP 82104 

Imprimante HP 82143 

Lecteur de cassettes digiiales 

Module HP IL HP 82160 

Module X foncuons HP 82180 Promotion 

Module horloge HP 82182 Promotion 

Module mathematiques 0041-15010 

Batrerif-HP4IHP 82120 

Chargeur HP 41 HP82066B 

Livrets d'application |28 titresj 

Jeu de 4 grilles designation HP 82152 

Clavier a membrane HP 82200 



1 y»l 


n 


I650F 


I 


3 350F 




4.250 F 


i 


1 060 F 


i 


500 F 


i i 


500 F 


i i 


3I0F 




r/nf 




140 F 




135F 




1 1 S F 


i I 


235 F 


LI 



Produits compatibles HP 41 

Port expander 8 entrees et sorties 

Table tracante 4 couleurs randy interface HP IL 

Livres 

Programme HP 4i 

Au fond de la HP 41 

Autour de la boucle 

Synthetic programming on the HP 41 fen anglais) 

Calculator tips and routines (en anglais| 

The HP IL system: an introductory Guide 

to the Hewlett Packard interface loop 



CANON X 07 

Canon X 07 8k 

Canon X 07 + module XR 100 

Imprimante thermique X 711 

Impnmante/ table tracante X 7!0 

Coupleur optique X 721 

Convertisseur de niveaux X 722 

Carte memoire 4k XM 100 

Cable cassette XC 910 

Cable Centronics XC 930 

Cable de liaison pour X 722 XC 940 

Logiciels fichiers 

Adaptateur secteur pour X 07 AD 411 



Cakulatrices TEXAS INSTRUMENTS 

Tl 30 LCD 

TI35 

TI55II 

Tl 57 diodes 

Tl 57 cnstaux liquides 

PC 100C 

Modules Tl 58/59 

Jeux jmanuel en anglais) 

Securities 

Electromque 

Mathematiques 

RPM 

Surveying 



1.2B0F D 
5.900 F □ 



102 F D 

100 F C 

100 F D 

149 F D 

184 F D 



2.I70F 


n 


2.950 F 




795 F 




1.650 F 




480 F 




600 F 




389 F 




59 F 


1 


268 F 


u 


495 F 


n 


60 F 


u 



109F 

140 F 
261 1 1 
.'4U i 
240 F 
1.750F 

285 F 
285 F 
285 F 

285 F 
285 F 
285 F 




MATERIELS THOMSON 

Unite centrale 

Codeur SECAM 

Lecteur enregistreur 

Extension memoire 16k 

Controleur com. 

Son etjeux 

Memo Basic 

Imprimante thermique 

Cordon imprimante thermique 

Imprimante Impact 

Cordon imprimante Impact 

Contr lect disquette 

Lect. disquette 

Rouleau papier thermique 

Logiciels Answare 

Budget (amilial 
Carnet d'adresses 
Gerez votie biblrot Deque 
Gerez vos fiches 

Livres 

Initiation au Basic T07 
Manuel de reference |Savema| 
Basic D.OSduT07 
Un ordmateur en fete 
Un ordinateur a la n ii iisi ii i 
Un ordinateur et desjeux 



TO 7 

Prix TTC 

2.480 F 

600 F 

800 F 

750 F 

850 F 

600 F 

480 F 

2 500F 

290 F 

2 500F 

290 F 

3.800 F 

2 600F 

75 F 



450 F D 

480 F □ 

490 F g 

525 F i D ■ 



75 F 

I ■'■: I 

1251 
591 
59F 

59 i 



Compuddioon 

Caneli 6. cutthroats 
Operation apocalypse 

L alliance rompue 
L episode Bismarck 

<.)>■ forces red 
In lampagnes napolrs 
la pour suite flu Graf Spee 

.-',■'■ '! ■' 

La que fie du cosmos 
les baMseurs d empire 



B Inter ba lie 
Cont'Oleur aerie 
Fi at irons 



ChrrcW/ i.i drift 

Angnierilrv voire wx.ibulaire I 
Augmented voire vocabularre I. 

Pareil on different 

■ ■ ■ 
Moti caches geograpn* 

■ II demo disk 
TtircjiFdt creator 

Manon mywp 
■ 

■ |h! rii.icjii Iv'l 
l.it)yriri0ie|vf) 

■ 

Genet i dull |vf) 

■ . . 

■ 

Track attack |v(f 

RrdJdefiMl 



820,93 F 




937.50 F 




680.20 F 




671,18 F 




820,93 F 




B2 1.931 


!. 


820.93 F 


1 


586.38 F 




820.93 F 




B20.93F 




586 181 


1 


586.38 F 




445.65 F 




551 :oi 




293.20I 




41047F 




4 10,4 7 F 




41047F 





lerpem m 
Sky blam 

ii.irt attack 

The at cade mat rime 

Apple fMFiif 

. 

PinbaiU construction rl 

.... 
Snack attack 

Swashbuckler 
Crazy ma/cy 
Canyon climber 
Crush crumlileai 
temple o( Apshai 
PhaiM lire 



d i In imji 



293 20 F . 

535.46 F 
S39.46I 
680,201 
( 10.47 F 

I ■ 

4 10.47 F 

293.20 F 
293.201 
293 20 F 
293.201 
293.20 F 
293 20 F 
293.20 F 
293,20 F 
293.20 F 
1 17.27 F 
1 491.101 
469.10 F 
'.vr' BO I 

422.22 F 
363 56 F 
363 U ' 
363 56 F 
363.S6F 

. 
363.56 F 



.. . ■ 
Matlwnaw 
Deadline 
7oik I 
2?oik II 
Zork III 

CastleWolfensiein 
Mulrr 2049ei 

All 8ab.t 
Utnm.i II 



Knight of diamonds 

■■ .. 

.<vi si Might simulate* 
nriballfmght mission) 

■ I 
. . • ■ 

C ilutMl nrenjf i ■ ■ 
fGPLE] 

■ rthi 



Logiciels VIFI Nathan pour T07 Thomson 

Atomtum 

Echo 

Survivor 

Logicod 

Gemini 

Crypto 

Motus 

Tridi 444 

Trap 

Pictor 

Metodia 

Ilium 

Melimemot 

Casino 

Quest from) 

Cassette quest, histoire geo. 

Casette quest sports 

Casette quest sciences et decouvertes 

Cocktail I 

Cocktail 2 

Cocktail 3 

Sauterelle 

Basic vol I 

Basic vol. 2 

Comp. et mult. 

Systeme metrique 

Carre magique 

L'horloge 

Encadrement 

Carotte malicieuse 

Dietetique 

Allemand vol 1 

Allemand vol, 2 

Mots croises vol. 1 

Mots croises vol 2 

Mots en fleurs 

Signes dans I'espace 

Ronde des chiffres 

Carte de France 

Noix de coco 

Ecole des maths vol I 

Ecole des maths vol. 2 



iW.IX.lr 


J 


125.001 


i I 


■06,00 I 


□ 


61 2.00 F 


LI 


205,001 


' i 


" ■ ■ 


: J 


306,00 F 


n 


408.00 F 




546,001 




306,00 F 




357.00 F 


D 


306.00 F 


P 


ir 16.00 F 




306.00 F 




•108,00 F 


_: 


306.00 F 


I 


306.00 F 




3S7.00F 


■ 


357.00F 




979.00 F 




5 1 0,00 F 




406.001 




1 18,001 




♦03,001 




■jofl.onr 


"! 






408.00 F 




306.00 F 




3 36.00 F 




61 2.00 F 




■S0H.00 1 




357.00 F 




306.00 r 




5 1 0.00 F 


1 ■ 




n 


ioc.ooi 




3 7 1 ,00 F 


. 




."; 


■■■ir.ili 1 




446,00 F 




397.00 F 




397,00 F 


■ ! 


397.00 F 


□ 


408,00 F 




■ 




S96.00 F 






Bon de commande. Tarifs au 15/1/1984 



■ 

LMvjKJtoun 

■ 
lete de cochan 

'j. ■■■•:.<, i.e. 



*Je cornrrwtfJe lei logiciels ou progiaels suivants . 

TOtAL ITC Participation aux dais tie port + 30 f 

Ci-jomt mon fCglement pat Adresse _ 

. 
qui ne sera encaisse par la RAC qu'aprts I'expi Code post 



L. 



LA REOLE A CALCUL - bS/b7. Dd St -Germain 75005 Paris 
Tel 325 68 88 -Telex 220064FETRAV/1303 RAC 



I 
I 

i 



J85.00 F 

38S.U0F 

i 

■ 

32S.OO F 

■■ 

2 
3 1 0,00 F 
■ 

295.00 F 

■ 

340,00 F 



2 1 95,00 F 

I 

450.00 F , 



